Temperature Variation
Water temperatures in Lake Champlain reached a minimum in February.
Sampling for this project began during the Spring warming period.
Temperature variability (both ranges and variance) increase with
temperature, but are strongly affected by the length of time period
examined.
# Lake Champlain near Burlington, VT
siteNumber = "04294500"
ChamplainInfo = readNWISsite(siteNumber)
parameterCd = "00010"
startDate = "2023-01-01"
endDate = ""
#statCd = c("00001", "00002","00003", "00011") # 1 - max, 2 - min, 3 = mean
# Constructs the URL for the data wanted then downloads the data
url = constructNWISURL(siteNumbers = siteNumber, parameterCd = parameterCd,
startDate = startDate, endDate = endDate, service = "uv")
temp_data = importWaterML1(url, asDateTime = T) %>%
mutate("date" = as.Date(dateTime)) %>%
select(date, "temp" = X_00010_00000)
## Daily values
daily_temp_data = temp_data %>%
ungroup() %>%
group_by(date) %>%
summarise(mean_temp = mean(temp),
med_temp = median(temp),
var_temp = var(temp),
min_temp = min(temp),
max_temp = max(temp)) %>%
mutate("range_temp" = max_temp - min_temp)
day_prior_temp_data = temp_data %>%
ungroup() %>%
group_by(date) %>%
summarise(mean_temp = mean(temp),
med_temp = median(temp),
var_temp = var(temp),
min_temp = min(temp),
max_temp = max(temp)) %>%
mutate(date = date + 1) %>%
rename_with(.fn = ~ paste0("prior_day_", .x), .cols = c(-date))
daily_plot = daily_temp_data %>%
pivot_longer(cols = c(-date),
names_to = "parameter",
values_to = "temp") %>%
ggplot(aes(x = date, y = temp, colour = parameter)) +
geom_line(linewidth = 1) +
scale_colour_manual(values = c(
"mean_temp" = "olivedrab3",
"med_temp" = "seagreen3",
"max_temp" = "tomato",
"min_temp" = "dodgerblue",
"range_temp" = "goldenrod3",
"var_temp" = "darkgoldenrod1"
)) +
scale_x_continuous(breaks = as.Date(c("2023-01-01", "2023-04-01", "2023-07-01"))) +
ggtitle("Daily Values") +
labs(y = "Temperature (°C)",
x = "") +
theme_bw(base_size = 20) +
theme(panel.grid = element_blank(),
axis.text.x = element_text(angle = 270, hjust = 0, vjust = 0.5))
## Defining the function to get predictor values for periods of different lengths
get_predictors = function(daily_values, raw_temp, n_days){
prefix = str_replace_all(xfun::numbers_to_words(n_days), pattern = " ", replacement = "-")
mean_values = daily_values %>%
ungroup() %>%
mutate(mean_max = slide_vec(.x = max_temp, .f = mean, .before = n_days, .complete = T),
mean_min = slide_vec(.x = min_temp, .f = mean, .before = n_days, .complete = T),
mean_range = slide_vec(.x = range_temp, .f = mean, .before = n_days, .complete = T)) %>%
select(date, mean_max, mean_min, mean_range) %>%
rename_with( ~ paste(prefix, "day", .x, sep = "_"), .cols = c(-date))
period_values = raw_temp %>%
mutate(mean = slide_index_mean(temp, i = date, before = days(n_days),
na_rm = T),
max = slide_index_max(temp, i = date, before = days(n_days),
na_rm = T),
min = slide_index_min(temp, i = date, before = days(n_days),
na_rm = T),
med = slide_index_dbl(temp, .i = date, .before = days(n_days),
na_rm = T, .f = median),
var = slide_index_dbl(temp, .i = date, .before = days(n_days),
.f = var),
range = max - min) %>%
select(-temp) %>%
distinct() %>%
rename_with( ~ paste(prefix, "day", .x, sep = "_"), .cols = c(-date))%>%
inner_join(mean_values, by = c("date")) %>%
drop_na()
return(period_values)
}
## Getting predictor variables for different periods
### Short (three days)
three_day_temps = get_predictors(daily_values = daily_temp_data,
raw_temp = temp_data,
n_days = 3)
### ONE WEEK
week_temps = get_predictors(daily_values = daily_temp_data,
raw_temp = temp_data,
n_days = 7)
week_plot = week_temps %>%
pivot_longer(cols = c(-date),
names_to = "parameter",
values_to = "temp") %>%
filter(parameter %in% c("seven_day_mean",
"seven_day_med",
"seven_day_max",
"seven_day_min",
"seven_day_var",
"seven_day_range")) %>%
mutate(parameter = paste(word(parameter, start = 3, sep = fixed("_")), "_temp", sep = "")) %>%
ggplot(aes(x = date, y = temp, colour = parameter)) +
geom_line(linewidth = 1) +
scale_colour_manual(values = c(
"mean_temp" = "olivedrab3",
"med_temp" = "seagreen3",
"max_temp" = "tomato",
"min_temp" = "dodgerblue",
"range_temp" = "goldenrod3",
"var_temp" = "darkgoldenrod1"
)) +
scale_x_continuous(breaks = as.Date(c("2023-01-01", "2023-04-01", "2023-07-01"))) +
ggtitle("One Week") +
labs(y = "Temperature (°C)",
x = "") +
theme_bw(base_size = 20) +
theme(panel.grid = element_blank(),
axis.text.x = element_text(angle = 270, hjust = 0, vjust = 0.5))
### TWO WEEKS
two_week_temps = get_predictors(daily_values = daily_temp_data,
raw_temp = temp_data,
n_days = 14)
two_week_plot = two_week_temps %>%
pivot_longer(cols = c(-date),
names_to = "parameter",
values_to = "temp") %>%
filter(parameter %in% c("fourteen_day_mean",
"fourteen_day_med",
"fourteen_day_max",
"fourteen_day_min",
"fourteen_day_var",
"fourteen_day_range")) %>%
mutate(parameter = paste(word(parameter, start = 3, sep = fixed("_")), "_temp", sep = "")) %>%
ggplot(aes(x = date, y = temp, colour = parameter)) +
geom_line(linewidth = 1) +
scale_colour_manual(values = c(
"mean_temp" = "olivedrab3",
"med_temp" = "seagreen3",
"max_temp" = "tomato",
"min_temp" = "dodgerblue",
"range_temp" = "goldenrod3",
"var_temp" = "darkgoldenrod1"
)) +
scale_x_continuous(breaks = as.Date(c("2023-01-01", "2023-04-01", "2023-07-01"))) +
ggtitle("Two Weeks") +
labs(y = "Temperature (°C)",
x = "") +
theme_bw(base_size = 20) +
theme(panel.grid = element_blank(),
axis.text.x = element_text(angle = 270, hjust = 0, vjust = 0.5))
### FOUR WEEKS
four_week_temps = get_predictors(daily_values = daily_temp_data,
raw_temp = temp_data,
n_days = 28)
four_week_plot = four_week_temps %>%
pivot_longer(cols = c(-date),
names_to = "parameter",
values_to = "temp") %>%
filter(parameter %in% c("twenty-eight_day_mean",
"twenty-eight_day_med",
"twenty-eight_day_max",
"twenty-eight_day_min",
"twenty-eight_day_var",
"twenty-eight_day_range")) %>%
mutate(parameter = paste(word(parameter, start = 3, sep = fixed("_")), "_temp", sep = "")) %>%
ggplot(aes(x = date, y = temp, colour = parameter)) +
geom_line(linewidth = 1) +
scale_colour_manual(values = c(
"mean_temp" = "olivedrab3",
"med_temp" = "seagreen3",
"max_temp" = "tomato",
"min_temp" = "dodgerblue",
"range_temp" = "goldenrod3",
"var_temp" = "darkgoldenrod1"
)) +
scale_x_continuous(breaks = as.Date(c("2023-01-01", "2023-04-01", "2023-07-01"))) +
ggtitle("Four Weeks") +
labs(y = "Temperature (°C)",
x = "") +
theme_bw(base_size = 20) +
theme(panel.grid = element_blank(),
axis.text.x = element_text(angle = 270, hjust = 0, vjust = 0.5))
### EIGHT WEEKS
eight_week_temps = get_predictors(daily_values = daily_temp_data,
raw_temp = temp_data,
n_days = 56)
eight_week_plot = eight_week_temps %>%
pivot_longer(cols = c(-date),
names_to = "parameter",
values_to = "temp") %>%
filter(parameter %in% c("fifty-six_day_mean",
"fifty-six_day_med",
"fifty-six_day_max",
"fifty-six_day_min",
"fifty-six_day_var",
"fifty-six_day_range")) %>%
mutate(parameter = paste(word(parameter, start = 3, sep = fixed("_")), "_temp", sep = "")) %>%
ggplot(aes(x = date, y = temp, colour = parameter)) +
geom_line(linewidth = 1) +
scale_colour_manual(values = c(
"mean_temp" = "olivedrab3",
"med_temp" = "seagreen3",
"max_temp" = "tomato",
"min_temp" = "dodgerblue",
"range_temp" = "goldenrod3",
"var_temp" = "darkgoldenrod1"
)) +
scale_x_continuous(breaks = as.Date(c("2023-01-01", "2023-04-01", "2023-07-01"))) +
ggtitle("Eight Weeks") +
labs(y = "Temperature (°C)",
x = "") +
theme_bw(base_size = 20) +
theme(panel.grid = element_blank(),
axis.text.x = element_text(angle = 270, hjust = 0, vjust = 0.5))
ggarrange(daily_plot, week_plot, two_week_plot, four_week_plot, eight_week_plot,
common.legend = T, nrow = 1, legend = "bottom")

one_week_doy_data = week_temps %>%
mutate(doy = yday(date))
one_week_temp_circle = ggplot(one_week_doy_data, aes(x = seven_day_mean_max, y = seven_day_mean_min, colour = doy)) +
geom_point() +
scale_colour_gradient(
high = "coral2",
low = "dodgerblue4") +
labs(x = "Max. Temp. (°C)",
y = "Min. Temp. (°C)") +
labs(x = "Max. Temp. (°C)",
y = "Min. Temp. (°C)") +
ggtitle("One Week") +
theme_matt()
The different time periods examined by this climate data highlights
that the relationship between minimum and maximum temperatures changes
based on the window examined. For example, minimum and maximum
temperatures experienced over weekly intervals are closely linked,
whereas there is a distinct seasonal cycle in the relationship between
minimum and maximum temperatures experienced over periods of four
weeks.
four_week_doy_data = four_week_temps %>%
mutate(doy = yday(date))
four_week_temp_circle = ggplot(four_week_doy_data, aes(x = `twenty-eight_day_max`, y = `twenty-eight_day_min`, colour = doy)) +
geom_point() +
scale_colour_gradient(
high = "coral2",
low = "dodgerblue4") +
labs(x = "Max. Temp. (°C)",
y = "Min. Temp. (°C)") +
ggtitle("Four Week") +
theme_matt()
ggarrange(one_week_temp_circle, four_week_temp_circle,
common.legend = T, legend = "bottom")

## Daily values for the period examined by dataset
collection_conditions = temp_data %>%
ungroup() %>%
group_by(date) %>%
summarise(mean_temp = mean(temp),
med_temp = median(temp),
var_temp = var(temp),
min_temp = min(temp),
max_temp = max(temp)) %>%
mutate("range_temp" = max_temp - min_temp,
date = as.Date(date)) %>%
ungroup() %>%
filter(date >= (min(as.Date(full_data$collection_date)) - 7))
## Mean female thermal limits for each species, grouped by collection
species_summaries = full_data %>%
#filter(sex == "female") %>%
group_by(sp_name, collection_date, collection_temp) %>%
summarise("mean_ctmax" = mean(ctmax),
"sample_size" = n(),
"ctmax_st_err" = (sd(ctmax) / sqrt(sample_size)),
"ctmax_var" = var(ctmax),
"mean_size" = mean(size),
"size_st_err" = (sd(size) / sqrt(sample_size)),
"size_var" = var(size)) %>%
ungroup() %>%
complete(sp_name, collection_date) %>%
arrange(desc(sample_size))
adult_summaries = full_data %>%
filter(sex == "female") %>%
group_by(sp_name, collection_date, collection_temp) %>%
summarise("mean_ctmax" = mean(ctmax),
"sample_size" = n(),
"ctmax_st_err" = (sd(ctmax) / sqrt(sample_size)),
"ctmax_var" = var(ctmax),
"mean_size" = mean(size),
"size_st_err" = (sd(size) / sqrt(sample_size)),
"size_var" = var(size)) %>%
ungroup() %>%
complete(sp_name, collection_date) %>%
arrange(desc(sample_size))
ggplot() +
geom_vline(data = unique(select(full_data, collection_date)),
aes(xintercept = as.Date(collection_date)),
colour = "grey90",
linewidth = 1) +
geom_line(data = collection_conditions,
aes(x = as.Date(date), y = mean_temp),
colour = "black",
linewidth = 2) +
# geom_errorbar(data = species_summaries,
# aes(x = as.Date(collection_date),
# ymin = mean_ctmax - ctmax_st_err, ymax = mean_ctmax + ctmax_st_err,
# colour = sp_name),
# position = position_dodge(width = 1),
# width = 5, linewidth = 1) +
geom_point(data = species_summaries,
aes(x = as.Date(collection_date), y = mean_ctmax, colour = sp_name, size = sample_size)) +
scale_colour_manual(values = species_cols) +
labs(x = "Date",
y = "Temperature (°C)",
colour = "Species",
size = "Sample Size") +
theme_matt() +
theme(legend.position = "right")

size_timeseries = ggplot() +
geom_vline(data = unique(select(full_data, collection_date)),
aes(xintercept = as.Date(collection_date)),
colour = "grey90",
linewidth = 1) +
geom_line(data = collection_conditions,
aes(x = as.Date(date), y = mean_temp),
colour = "black",
linewidth = 2) +
# geom_errorbar(data = species_summaries,
# aes(x = as.Date(collection_date),
# ymin = mean_ctmax - ctmax_st_err, ymax = mean_ctmax + ctmax_st_err,
# colour = sp_name),
# position = position_dodge(width = 1),
# width = 5, linewidth = 1) +
geom_point(data = species_summaries,
aes(x = as.Date(collection_date), y = mean_size * 40, colour = sp_name),
position = position_dodge(width = 1),
size = 4) +
scale_colour_manual(values = species_cols) +
scale_y_continuous(
name = "Temperature", # Features of the first axis
sec.axis = sec_axis(~./40, name="Prosome Length (mm)"), # Add a second axis and specify its features
breaks = c(0,5,10,15,20,25,30)
) +
labs(x = "Date",
y = "Temperature (°C)",
colour = "Species") +
theme_matt() +
theme(legend.position = "right")
#ggarrange(ctmax_timeseries, size_timeseries, common.legend = T, legend = "bottom")
## Combine data, then pull out values for each collection date
date_list = as.Date(unique(full_data$collection_date))
temp_predictors = daily_temp_data %>%
full_join(day_prior_temp_data, by = c("date")) %>%
full_join(three_day_temps, by = c("date")) %>%
full_join(week_temps, by = c("date")) %>%
full_join(two_week_temps, by = c("date")) %>%
full_join(four_week_temps, by = c("date")) %>%
full_join(eight_week_temps, by = c("date")) %>%
filter(date %in% date_list)
A set of predictors variables were assembled from the continuous
temperature data set based on conditions during the day of collection,
the week before collections, and the preceding two, four, and eight week
periods. This is a preliminary analysis for now. Shown here are the top
three factors. Species with no significant predictor or limited
collection date distributions were excluded.
num_colls = full_data %>%
filter(sex == "female") %>%
select(collection_date, sp_name) %>%
distinct() %>%
count(sp_name) %>%
filter(n >= 5)
corr_vals = full_data %>%
filter(sp_name %in% num_colls$sp_name) %>%
filter(sex == "female") %>%
mutate(collection_date = as.Date(collection_date)) %>%
full_join(temp_predictors, join_by(collection_date == date)) %>%
pivot_longer(cols = c(collection_temp, mean_temp:tail(names(.), 1)),
values_to = "value",
names_to = "predictor") %>%
group_by(sp_name, predictor) %>%
summarise(correlation = cor.test(ctmax, value)$estimate,
p.value = cor.test(ctmax, value)$p.value,
ci_low = cor.test(ctmax, value)$conf.int[1],
ci_high = cor.test(ctmax, value)$conf.int[2]) %>%
mutate(sig = ifelse(p.value <0.05, "Sig.", "Non Sig."))
corr_vals %>%
filter(sig == "Sig.") %>%
drop_na(correlation) %>%
group_by(sp_name) %>%
arrange(desc(correlation)) %>%
slice_head(n = 3) %>%
select("Species" = sp_name, "Predictor" = predictor, "Correlation" = correlation, "P-Value" = p.value) %>%
knitr::kable(align = "c")
| Epischura lacustris |
three_day_mean_min |
0.7776747 |
0.0136206 |
| Epischura lacustris |
prior_day_min_temp |
0.7697148 |
0.0152761 |
| Epischura lacustris |
three_day_med |
0.7693684 |
0.0153510 |
| Leptodiaptomus minutus |
three_day_mean_max |
0.6074635 |
0.0000000 |
| Leptodiaptomus minutus |
three_day_max |
0.6047785 |
0.0000000 |
| Leptodiaptomus minutus |
prior_day_max_temp |
0.6039838 |
0.0000000 |
| Skistodiaptomus oregonensis |
prior_day_max_temp |
0.5111761 |
0.0000000 |
| Skistodiaptomus oregonensis |
three_day_mean_max |
0.5034440 |
0.0000000 |
| Skistodiaptomus oregonensis |
three_day_max |
0.4951207 |
0.0000000 |
Trait Variation
ctmax_plot = full_data %>%
mutate( #sp_name = str_replace(sp_name, pattern = " ",
# replacement = "\n"),
sp_name = fct_reorder(sp_name, ctmax, mean)) %>%
ggplot(aes(y = sp_name, x = ctmax)) +
geom_point(aes(colour= sp_name_sub),
position = position_dodge(width = 0.3),
size = 4) +
scale_colour_manual(values = species_cols) +
xlab(NULL) +
labs(y = "",
x = "CTmax (°C)",
colour = "Group") +
theme_matt() +
theme(legend.position = "none")
size_plot = full_data %>%
mutate(sp_name = fct_reorder(sp_name, ctmax, mean)) %>%
ggplot(aes(y = sp_name, x = size)) +
geom_point(aes(colour= sp_name_sub),
position = position_dodge(width = 0.3),
size = 4) +
scale_colour_manual(values = species_cols) +
labs(x = "Prosome Length (mm)",
y = "",
colour = "Group") +
guides(color = guide_legend(ncol = 1)) +
theme_matt(base_size = ) +
theme(legend.position = "right",
axis.text.y = element_blank(),
plot.margin = margin(0, 0, 0, 0,"cm"))
trait_plot = ctmax_plot + size_plot
trait_plot

full_data %>%
drop_na(fecundity) %>%
ggplot(aes(x = fecundity, fill = sp_name_sub)) +
facet_wrap(.~sp_name_sub, ncol = 1) +
geom_histogram(binwidth = 2) +
scale_fill_manual(values = species_cols) +
labs(x = "Fecundity (# Eggs)") +
theme_matt_facets() +
theme(legend.position = "none")

Variation with temperature
ctmax_temp = ggplot(full_data, aes(x = collection_temp, y = ctmax, colour = sp_name)) +
geom_smooth(method = "lm", linewidth = 3) +
geom_point(size = 3) +
labs(x = "Collection Temperature (°C)",
y = "CTmax (°C)",
colour = "Species") +
scale_colour_manual(values = species_cols) +
theme_matt() +
theme(legend.position = "right")
size_temp = ggplot(filter(full_data, sex != "juvenile"), aes(x = collection_temp, y = size, colour = sp_name)) +
geom_smooth(method = "lm", linewidth = 3) +
geom_point(size = 3) +
labs(x = "Collection Temperature (°C)",
y = "Length (mm)",
colour = "Species") +
scale_colour_manual(values = species_cols) +
theme_matt() +
theme(legend.position = "right")
wt_temp = ggplot(full_data, aes(x = collection_temp, y = warming_tol, colour = sp_name)) +
geom_smooth(method = "lm", linewidth = 3) +
geom_point(size = 3) +
labs(x = "Collection Temperature (°C)",
y = "Warming Tolerance (°C)",
colour = "Species") +
scale_colour_manual(values = species_cols) +
theme_matt() +
theme(legend.position = "right")
eggs_temp = ggplot(full_data, aes(x = collection_temp, y = fecundity, colour = sp_name)) +
geom_smooth(method = "lm", linewidth = 3) +
geom_point(size = 3) +
labs(x = "Collection Temperature (°C)",
y = "Fecundity (# Eggs)",
colour = "Species") +
scale_colour_manual(values = species_cols) +
theme_matt() +
theme(legend.position = "right")
ggarrange(ctmax_temp, size_temp, wt_temp, eggs_temp,
common.legend = T, legend = "right")

# adult_data = full_data %>%
# filter(sex == "female")
model_data = full_data %>%
drop_na(size, ctmax)
ctmax_temp.model = lm(data = model_data, ctmax ~ collection_temp * sp_name + sex)
size_temp.model = lm(data = model_data, size ~ collection_temp * sp_name + sex)
knitr::kable(car::Anova(ctmax_temp.model))
| collection_temp |
255.243899 |
1 |
196.8817833 |
0.0000000 |
| sp_name |
1820.429275 |
6 |
234.0306422 |
0.0000000 |
| sex |
6.318581 |
2 |
2.4369113 |
0.0887084 |
| collection_temp:sp_name |
2.368759 |
3 |
0.6090455 |
0.6094493 |
| Residuals |
526.351506 |
406 |
NA |
NA |
ctmax_resids = cbind(model_data, "resids" = ctmax_temp.model$residuals, "size_resids" = size_temp.model$residuals)
ggplot(ctmax_resids, aes(x = days_in_lab, y = resids, colour = sp_name)) +
facet_wrap(sp_name~.) +
geom_point(size = 4, alpha = 0.5) +
geom_smooth(method = "lm", se = F, linewidth = 2) +
scale_x_continuous(breaks = c(0:5)) +
labs(x = "Days in lab",
y = "CTmax Residuals") +
scale_colour_manual(values = species_cols) +
theme_matt_facets() +
theme(legend.position = "none")

Given the long generation times of these copepods, decreases in trait
variance may indicate selection over the seasonal cycle. Shown below are
the variance in observed CTmax and size, plotted against collection
date. Variance decreases in Skistodiaptomus, but this pattern
is driven by a single collection with high variance early in the year.
Size variance increases slightly in Skistodiaptomus. Variance
in both CTmax and size is fairly constant in Leptodiaptomus
minutus, the only other species collected across the entire set of
samples thus far.
ggplot(drop_na(adult_summaries, ctmax_var), aes(x = as.Date(collection_date), y = ctmax_var, colour = sp_name)) +
facet_wrap(sp_name~., scales = "free_y") +
geom_point(size = 2) +
geom_smooth(method = "lm", se = F) +
labs(x = "Collection Temp. (°C)",
y = "CTmax Variance") +
scale_colour_manual(values = species_cols) +
theme_matt_facets() +
theme(legend.position = "none")

ggplot(drop_na(adult_summaries, size_var), aes(x = as.Date(collection_date), y = size_var, colour = sp_name)) +
facet_wrap(sp_name~.) +
geom_point(size = 2) +
geom_smooth(method = "lm", se = F) +
labs(x = "Collection Temp. (°C)",
y = "Size Variance") +
scale_colour_manual(values = species_cols) +
theme_matt_facets() +
theme(legend.position = "none")

Predicting Vulnerability
Using the observed thermal limit data, we can produce a hindcast of
thermal stress for Lake Champlain copepods. For these initial assays, we
will define thermal stress as any time when maximum daily water
temperature is within 2°C of copepod CTmax or higher. We will use three
different scenarios: 1) the average CTmax for each species, 2) CTmax
predicted using collection temperatures, and 3) for species that have
sufficient data, CTmax predicted using whichever environmental factor is
the strongest candidate for driving acclimation. In all cases, data is
filtered to just thermal limits of adult females.
Scenario 1
mean_ctmax = full_data %>%
filter(sex == "female") %>%
group_by(sp_name) %>%
summarize("mean_ctmax" = mean(ctmax)) %>%
arrange(mean_ctmax)
knitr::kable(mean_ctmax)
| Senecella calanoides |
23.90509 |
| Limnocalanus macrurus |
25.30001 |
| Leptodiaptomus sicilis |
30.96424 |
| Leptodiaptomus minutus |
32.83846 |
| Epischura lacustris |
34.15190 |
| Pseudodiaptomus sp |
36.31250 |
| Skistodiaptomus oregonensis |
37.02116 |
# # Constructs the URL for the full temperature data set; RUN THIS ONCE
# hind_url = constructNWISURL(siteNumbers = siteNumber, parameterCd = parameterCd, service = "uv")
#
# hind_temp_data = importWaterML1(hind_url, asDateTime = T) %>%
# mutate("date" = as.Date(dateTime)) %>%
# select(date, "temp" = X_00010_00000)
#
# write.table(x = hind_temp_data, file = "hindcast_temps.csv", row.names = F, sep = ",")
# ggplot(hind_temp_data, aes(x = date, y = temp)) +
# geom_line(linewidth = 0.1) +
# labs(x = "Date",
# y = "Water Temperature (°C)") +
# theme_matt()
In the simplest scenario, species thermal limits are static through
time, represented by the average CTmax of adult female copepods. In this
scenario, only three of the seven observed species are exposed to
thermal stress (temperatures within 5°C of CTmax). Temperatures
approached the thermal limit of Leptodiaptomus sicilis on a
handful of days. By contrast, Senecella calanoides and
Limnocalanus macrurus were both exposed to substantial thermal
stress throughout a large portion of the year, likely explaining why
these species are absent from the community for the summer and fall
periods.
hind1_data = hind_temp_data %>%
group_by(date) %>%
summarize("daily_max" = max(temp),
"daily_mean" = mean(temp),) %>%
bind_cols(pivot_wider(mean_ctmax, names_from = sp_name, values_from = mean_ctmax)) %>%
pivot_longer(cols = c(-date, -daily_max, -daily_mean),
names_to = "species",
values_to = "mean_ctmax") %>%
mutate(lim_diff = mean_ctmax - daily_max) %>%
mutate(doy = yday(date),
"method" = "No_acclimation")
hind_daily_temp_data = hind_temp_data %>%
ungroup() %>%
group_by(date) %>%
summarise(mean_temp = mean(temp),
med_temp = median(temp),
var_temp = var(temp),
min_temp = min(temp),
max_temp = max(temp)) %>%
mutate("range_temp" = max_temp - min_temp)
#table(hind1_data$species)
hind1_data %>%
filter(lim_diff <= 5) %>%
ggplot(aes(x = doy, y = lim_diff, colour = species)) +
geom_hline(yintercept = 0) +
geom_hline(yintercept = 5,
colour = "grey") +
geom_point(alpha = 0.5) +
geom_smooth() +
labs(x = "Day of Year",
y = "Predicted Warming Tolerance \n(°C Above Daily Max)") +
theme_matt() +
theme(legend.position = "right")

Scenario 2
In the second scenario, thermal limits vary within and between
species. A simple model is used to predict species thermal limits based
on mean daily temperature (CTmax as a function of species and collection
temperature, but without the interaction between these two factors).
These predicted thermal limits are then compared against the maximum
daily temperature to estimate thermal stress, as in Scenario 1.
Including this simple form of acclimation in the model reduced the
degree of thermal stress for each species, eliminating it entirely for
Leptodiaptomus sicilis. Note that the magnitude of the
predicted stress is low enough that removing the 5°C buffer around the
predicted thermal limits would actually limit predicted thermal stress
to just a few days for Senecella calanoides.
hindcast_model1 = lm(data = filter(full_data, sex == "female"),
ctmax ~ collection_temp + sp_name)
hind2_data = hind_temp_data %>%
group_by(date) %>%
summarize("collection_temp" = mean(temp),
"daily_max" = max(temp)) %>%
bind_cols(
pivot_wider(mean_ctmax,
names_from = sp_name,
values_from = mean_ctmax)) %>%
pivot_longer(cols = c(-date, -daily_max, -collection_temp),
names_to = "sp_name",
values_to = "mean_ctmax") %>%
select(-mean_ctmax) %>%
mutate("pred_ctmax" = predict.lm (hindcast_model1, newdata = .)) %>%
select(date, "daily_mean" = collection_temp, daily_max, "species" = sp_name, pred_ctmax) %>%
mutate(lim_diff = pred_ctmax - daily_max) %>%
#filter(lim_diff <= 0) %>%
mutate(doy = yday(date),
"method" = "Constant_acclimation")
# ggplot(hind2_data, aes(x = daily_mean, y = pred_ctmax, colour = species)) +
# geom_smooth(method = "lm")
# table(hind2_data$species)
hind2_data %>%
filter(lim_diff <= 5) %>%
ggplot(aes(x = doy, y = lim_diff, colour = species)) +
geom_hline(yintercept = 0) +
geom_hline(yintercept = 5,
colour = "grey") +
geom_point(alpha = 0.5) +
geom_smooth() +
labs(x = "Day of Year",
y = "Predicted Warming Tolerance \n(°C Above Daily Max)") +
theme_matt() +
theme(legend.position = "right")

Scenario 3
The final scenario allows the environmental variable used to predict
CTmax to vary between species. For species observed in fewer than 5
collections, we use the same approach as in Scenario 2. For species
observed in more than 5 collections, however, the factor with the
strongest correlation with CTmax is used to predict thermal limits.
These factors are included below.
hind_preds = corr_vals %>%
filter(sig == "Sig.") %>%
drop_na(correlation) %>%
group_by(sp_name) %>%
arrange(desc(correlation)) %>%
slice_head(n = 1) %>%
select("Species" = sp_name, "Predictor" = predictor, "Correlation" = correlation, "P-Value" = p.value)
knitr::kable(hind_preds, align = "c")
| Epischura lacustris |
three_day_mean_min |
0.7776747 |
0.0136206 |
| Leptodiaptomus minutus |
three_day_mean_max |
0.6074635 |
0.0000000 |
| Skistodiaptomus oregonensis |
prior_day_max_temp |
0.5111761 |
0.0000000 |
hind3_data = hind2_data %>% # Contains data for species that won't change from scenario 2
filter(!(species %in% corr_vals$sp_name))
words_to_numbers <- function(s) {
s <- stringr::str_to_lower(s)
for (i in 0:56)
s <- stringr::str_replace_all(s, words(i), as.character(i))
s
}
preds_to_pull = hind_preds %>%
select(Species, Predictor) %>%
mutate(n_days = str_split_fixed(Predictor, pattern = "_", n = 2)[,1],
parameter = str_split_fixed(Predictor, pattern = "_day_", n = 2)[,2])
for(i in 1:length(preds_to_pull$Species)){
if(preds_to_pull$n_days[i] == "prior"){ #The prior day temperature metrics should be used
duration = NA
predictors = hind_daily_temp_data %>%
mutate(date = date + 1)
parameter = str_split_fixed(preds_to_pull$parameter[i], pattern = "_temp", n = 2)[1]
model_data = full_data %>%
filter(sp_name %in% preds_to_pull$Species[i]) %>%
filter(sex == "female") %>%
mutate(collection_date = as_date(collection_date)) %>%
inner_join(predictors, join_by(collection_date == date)) %>%
select(ctmax, contains(parameter))
if(dim(model_data)[2] == 2){
hind.model = lm(data = model_data,
ctmax ~ .)
sp_data = predictors %>%
select(date, contains(parameter)) %>%
mutate(pred_ctmax = predict(hind.model, newdata = .)) %>%
select(date, pred_ctmax) %>%
inner_join(hind_daily_temp_data, by = c("date")) %>%
mutate("species" = preds_to_pull$Species[i],
"doy" = yday(date),
lim_diff = pred_ctmax - max_temp) %>%
select(date, daily_mean = mean_temp, daily_max = max_temp, species, pred_ctmax, lim_diff, doy)
hind3_data = bind_rows(hind3_data, sp_data)
}else{
print("Too many columns selected")
}
}else{
duration = as.numeric(words_to_numbers(preds_to_pull$n_days[i]))
}
if(preds_to_pull$n_days[i] != "prior" & is.na(duration)){ #Daily temperatures should be used, as in Scenario 2
sp_data = hind2_data %>%
filter(species == preds_to_pull$Species[i])
hind3_data = bind_rows(hind3_data, sp_data)
}
if(is.numeric(duration)){
#Neither the prior day nor day of metrics should be used; use duration as n_days
predictors = get_predictors(daily_values = hind_daily_temp_data,
raw_temp = hind_temp_data,
n_days = duration)
parameter = str_split_fixed(preds_to_pull$parameter[i], pattern = "_temp", n = 2)[1]
model_data = full_data %>%
filter(sp_name %in% preds_to_pull$Species[i]) %>%
filter(sex == "female") %>%
mutate(collection_date = as_date(collection_date)) %>%
inner_join(predictors, join_by(collection_date == date)) %>%
select(ctmax, contains(parameter))
if(dim(model_data)[2] == 2){
hind.model = lm(data = model_data,
ctmax ~ .)
sp_data = predictors %>%
select(date, contains(parameter)) %>%
mutate(pred_ctmax = predict(hind.model, newdata = .)) %>%
select(date, pred_ctmax) %>%
inner_join(hind_daily_temp_data, by = c("date")) %>%
mutate("species" = preds_to_pull$Species[i],
"doy" = yday(date),
lim_diff = pred_ctmax - max_temp) %>%
select(date, daily_mean = mean_temp, daily_max = max_temp, species, pred_ctmax, lim_diff, doy)
hind3_data = bind_rows(hind3_data, sp_data)
}else{
print("Too many columns selected")
}
}
}
hind3_data = hind3_data %>%
mutate("method" = "Variable_acclimation")
This third approach did not affect the predicted patterns in
Limnocalanus or Senecella (neither species has been
observed in enough collections to estimate the effects of different
environmental factors). Changing the acclimation approach did affect
patterns in thermal limits in the other species though. The figure below
shows how predicted warming tolerance varies over the year in the seven
species, based on the three different prediction methods. In general,
constant thermal limits (the ‘no acclimation’ method) resulted in larger
warming tolerance during the winter and lower warming tolerance during
the summer, although this effect was small in most species.
synthesis = bind_rows(
select(hind1_data, date, doy, daily_mean, daily_max, species, "pred_ctmax" = mean_ctmax, lim_diff, method),
select(hind2_data, date, doy, daily_mean, daily_max, species, pred_ctmax, lim_diff, method),
select(hind3_data, date, doy, daily_mean, daily_max, species, pred_ctmax, lim_diff, method)) %>%
mutate(method = fct_relevel(method, "No_acclimation", "Constant_acclimation", "Variable_acclimation"))
climatology = synthesis %>%
group_by(species, doy, method) %>%
summarise("mean_diff" = mean(lim_diff),
"min_diff" = min(lim_diff),
"max_diff" = max(lim_diff)) %>%
mutate(method = fct_relevel(method, "No_acclimation", "Constant_acclimation", "Variable_acclimation"))
acc_effects = synthesis %>%
pivot_wider(id_cols = c(date, species, doy),
names_from = method,
values_from = lim_diff) %>%
mutate("const_acc_effect" = Constant_acclimation - No_acclimation,
"var_acc_effect" = Variable_acclimation - No_acclimation)
ggplot(synthesis, aes(x = doy, y = lim_diff, colour = method)) +
facet_wrap(species~.) +
geom_hline(yintercept = 0) +
geom_hline(yintercept = 5, colour = "grey") +
geom_point(alpha = 0.1) +
labs(x = "Day of Year",
y = "Predicted Warming Tolerance (°C Above Daily Max)") +
theme_matt_facets(base_size = 18) +
theme(strip.text.x.top = element_text(size = 10))

LS0tCnRpdGxlOiBTZWFzb25hbGl0eSBpbiBMYWtlIENoYW1wbGFpbiBDb3BlcG9kIFRoZXJtYWwgTGltaXRzCmRhdGU6ICJgciBTeXMuRGF0ZSgpYCIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICAgICAgICAgY29kZV9mb2xkaW5nOiBoaWRlCiAgICAgICAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCiAgICAgICAgICB0b2M6IHRydWUKICAgICAgICAgIHRvY19mbG9hdDogdHJ1ZQogIGdpdGh1Yl9kb2N1bWVudDoKICAgICAgICAgIGh0bWxfcHJldmlldzogZmFsc2UKICAgICAgICAgIHRvYzogdHJ1ZQogICAgICAgICAgdG9jX2RlcHRoOiAzCi0tLQoKYGBge3IgdG8tZG99CiMjIyBUbyBEbyAKCiMgQWN0dWFsIHN0YXRpc3RpY3MgZm9yIHJlbGF0aW9uc2hpcHMgYmV0d2VlbiB0ZW1wZXJhdHVyZSBhbmQgQ1RtYXgsIHNpemUsIGFuZCBmZWN1bmRpdHkKIyBQdWxsIHJlc2lkdWFscyBmcm9tIENUbWF4IH4gdGVtcGVyYXR1cmUgbW9kZWwsIGFuZCBleGFtaW5lIHRoZSBjaGFuZ2Ugb3ZlciB0aW1lIGluIGxhYiBhbmQgdGhlIHJlbGF0aW9uc2hpcCB3aXRoIGZlY3VuZGl0eQoKYGBgCgoKYGBge3Igc2V0dXAsIGluY2x1ZGU9VCwgbWVzc2FnZSA9IEYsIHdhcm5pbmcgPSBGLCBlY2hvID0gRn0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KAogIGVjaG8gPSBrbml0cjo6aXNfaHRtbF9vdXRwdXQoKSwKICBmaWcuYWxpZ24gPSAiY2VudGVyIiwKICBmaWcucGF0aCA9ICIuLi9GaWd1cmVzL21hcmtkb3duLyIsCiAgZGV2ID0gYygicG5nIiwgInBkZiIpLAogIG1lc3NhZ2UgPSBGQUxTRSwKICB3YXJuaW5nID0gRkFMU0UsCiAgY29sbGFwc2UgPSBUCikKCnRoZW1lX21hdHQgPSBmdW5jdGlvbihiYXNlX3NpemUgPSAxOCwKICAgICAgICAgICAgICAgICAgICAgIGRhcmtfdGV4dCA9ICJncmV5MjAiKXsKICBtaWRfdGV4dCA8LSAgbW9ub2Nocm9tZVI6OmdlbmVyYXRlX3BhbGV0dGUoZGFya190ZXh0LCAiZ29fbGlnaHRlciIsIG5fY29sb3VycyA9IDUpWzJdCiAgbGlnaHRfdGV4dCA8LSAgbW9ub2Nocm9tZVI6OmdlbmVyYXRlX3BhbGV0dGUoZGFya190ZXh0LCAiZ29fbGlnaHRlciIsIG5fY29sb3VycyA9IDUpWzNdCiAgCiAgZ2dwdWJyOjp0aGVtZV9wdWJyKGJhc2VfZmFtaWx5PSJzYW5zIikgJStyZXBsYWNlJSAKICAgIHRoZW1lKAogICAgICBwYW5lbC5iYWNrZ3JvdW5kICA9IGVsZW1lbnRfcmVjdChmaWxsPSJ0cmFuc3BhcmVudCIsIGNvbG91cj1OQSksIAogICAgICBwbG90LmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLCAKICAgICAgbGVnZW5kLmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLAogICAgICBsZWdlbmQua2V5ID0gZWxlbWVudF9yZWN0KGZpbGw9InRyYW5zcGFyZW50IiwgY29sb3VyPU5BKSwKICAgICAgdGV4dCA9IGVsZW1lbnRfdGV4dChjb2xvdXIgPSBtaWRfdGV4dCwgbGluZWhlaWdodCA9IDEuMSksCiAgICAgIHRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSBiYXNlX3NpemUgKiAxLjUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbG91ciA9IGRhcmtfdGV4dCksCiAgICAgIGF4aXMudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gYmFzZV9zaXplLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sb3VyID0gbWlkX3RleHQpLAogICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IGJhc2Vfc2l6ZSAqIDEuMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1hcmdpbiA9IHVuaXQoYygzLCAwLCAwLCAwKSwgIm1tIikpLAogICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IGJhc2Vfc2l6ZSAqIDEuMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1hcmdpbiA9IHVuaXQoYygwLCA1LCAwLCAwKSwgIm1tIiksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYW5nbGUgPSA5MCksCiAgICAgIGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9YmFzZV9zaXplICogMC45KSwKICAgICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSBiYXNlX3NpemUgKiAwLjksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmFjZSA9ICJib2xkIiksCiAgICAgIHBsb3QubWFyZ2luID0gbWFyZ2luKDAuMjUsIDAuMjUsIDAuMjUsIDAuMjUsImNtIikKICAgICkKfQoKdGhlbWVfbWF0dF9mYWNldHMgPSBmdW5jdGlvbihiYXNlX3NpemUgPSAxOCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXJrX3RleHQgPSAiZ3JleTIwIil7CiAgbWlkX3RleHQgPC0gIG1vbm9jaHJvbWVSOjpnZW5lcmF0ZV9wYWxldHRlKGRhcmtfdGV4dCwgImdvX2xpZ2h0ZXIiLCBuX2NvbG91cnMgPSA1KVsyXQogIGxpZ2h0X3RleHQgPC0gIG1vbm9jaHJvbWVSOjpnZW5lcmF0ZV9wYWxldHRlKGRhcmtfdGV4dCwgImdvX2xpZ2h0ZXIiLCBuX2NvbG91cnMgPSA1KVszXQogIAogIHRoZW1lX2J3KGJhc2VfZmFtaWx5PSJzYW5zIikgJStyZXBsYWNlJSAKICAgIHRoZW1lKAogICAgICBwYW5lbC5ncmlkID0gZWxlbWVudF9ibGFuaygpLAogICAgICBwYW5lbC5iYWNrZ3JvdW5kICA9IGVsZW1lbnRfcmVjdChmaWxsPSJ0cmFuc3BhcmVudCIsIGNvbG91cj1OQSksIAogICAgICBwbG90LmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLCAKICAgICAgbGVnZW5kLmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLAogICAgICBsZWdlbmQua2V5ID0gZWxlbWVudF9yZWN0KGZpbGw9InRyYW5zcGFyZW50IiwgY29sb3VyPU5BKSwKICAgICAgdGV4dCA9IGVsZW1lbnRfdGV4dChjb2xvdXIgPSBtaWRfdGV4dCwgbGluZWhlaWdodCA9IDEuMSksCiAgICAgIHN0cmlwLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gYmFzZV9zaXplKSwKICAgICAgdGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IGJhc2Vfc2l6ZSAqIDEuNSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sb3VyID0gZGFya190ZXh0KSwKICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSBiYXNlX3NpemUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xvdXIgPSBtaWRfdGV4dCksCiAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gYmFzZV9zaXplICogMS4yLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWFyZ2luID0gdW5pdChjKDMsIDAsIDAsIDApLCAibW0iKSksCiAgICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gYmFzZV9zaXplICogMS4yLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWFyZ2luID0gdW5pdChjKDAsIDUsIDAsIDApLCAibW0iKSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhbmdsZSA9IDkwKSwKICAgICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT1iYXNlX3NpemUgKiAwLjkpLAogICAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IGJhc2Vfc2l6ZSAqIDAuOSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmYWNlID0gImJvbGQiKSwKICAgICAgcGxvdC5tYXJnaW4gPSBtYXJnaW4oMC4yNSwgMC4yNSwgMC4yNSwgMC4yNSwiY20iKQogICAgKQp9CgpzcGVjaWVzX2NvbHMgPSBjKCJMZXB0b2RpYXB0b211cyBtaW51dHVzIiA9ICIjZmZkMDI5IiwKICAgICAgICAgICAgICAgICAiTGVwdG9kaWFwdG9tdXMgbWludXR1cyBqdXZlbmlsZSIgPSAiI2UzZDhhZiIsCiAgICAgICAgICAgICAgICAgIkxlcHRvZGlhcHRvbXVzIG1pbnV0dXMgbWFsZSIgPSAiI2ZmZTg5NiIsCiAgICAgICAgICAgICAgICAgIkxlcHRvZGlhcHRvbXVzIHNpY2lsaXMiID0gIiNEODZGMjkiLAogICAgICAgICAgICAgICAgICJMZXB0b2RpYXB0b211cyBzaWNpbGlzIG1hbGUiID0gIiNFMjhDMDAiLAogICAgICAgICAgICAgICAgICJTa2lzdG9kaWFwdG9tdXMgb3JlZ29uZW5zaXMiID0gIiNDNUMzNUEiLAogICAgICAgICAgICAgICAgICJTa2lzdG9kaWFwdG9tdXMgb3JlZ29uZW5zaXMgbWFsZSIgPSAiI2U2ZTZhYSIsIAogICAgICAgICAgICAgICAgICJFcGlzY2h1cmEgbGFjdXN0cmlzIGp1dmVuaWxlIiA9ICJwbHVtMSIsIAogICAgICAgICAgICAgICAgICJFcGlzY2h1cmEgbGFjdXN0cmlzIG1hbGUiID0gInBsdW0zIiwgCiAgICAgICAgICAgICAgICAgIkVwaXNjaHVyYSBsYWN1c3RyaXMiID0gInBsdW00IiwgCiAgICAgICAgICAgICAgICAgIkxpbW5vY2FsYW51cyBtYWNydXJ1cyIgPSAic2t5Ymx1ZTQiLCAKICAgICAgICAgICAgICAgICAiTGltbm9jYWxhbnVzIG1hY3J1cnVzIG1hbGUiID0gInNreWJsdWUzIiwgCiAgICAgICAgICAgICAgICAgIkxpbW5vY2FsYW51cyBtYWNydXJ1cyBqdXZlbmlsZSIgPSAic2t5Ymx1ZSIsIAogICAgICAgICAgICAgICAgICJTZW5lY2VsbGEgY2FsYW5vaWRlcyIgPSAiZGFya3NlYWdyZWVuMyIsCiAgICAgICAgICAgICAgICAgIkxlcHRvZG9yYSBraW5kdGkgbWFsZSIgPSAibGlnaHRibHVlMyIsCiAgICAgICAgICAgICAgICAgIkxlcHRvZG9yYSBraW5kdGkiID0gImxpZ2h0Ymx1ZTQiLAogICAgICAgICAgICAgICAgICJMZXB0b2RvcmEga2luZHRpIGp1dmVuaWxlIiA9ICJsaWdodGJsdWUiLAogICAgICAgICAgICAgICAgICJQc2V1ZG9kaWFwdG9tdXMgc3AiID0gImxpZ2h0Y29yYWwiKQpgYGAKCiMjIENvcGVwb2QgQ29sbGVjdGlvbgoKQ29wZXBvZHMgd2VyZSBjb2xsZWN0ZWQgYXQgYXBwcm94aW1hdGVseSB3ZWVrbHkgaW50ZXJ2YWxzIGZyb20gTGFrZSBDaGFtcGxhaW4gKEJ1cmxpbmd0b24gRmlzaGluZyBQaWVyKS4gUGxhbmt0b24gd2FzIGNvbGxlY3RlZCBmcm9tIHRoZSB0b3AgMyBtZXRlcnMgdXNpbmcgYSAyNTAgdW0gbWVzaCBuZXQuIENvcGVwb2RzIGZyb20gYHIgbGVuZ3RoKHVuaXF1ZShmdWxsX2RhdGEkY29sbGVjdGlvbl9kYXRlKSlgIGNvbGxlY3Rpb25zIHdlcmUgdXNlZCB0byBtYWtlIGEgdG90YWwgb2YgYHIgZGltKGZ1bGxfZGF0YSlbMV1gIHRoZXJtYWwgbGltaXQgbWVhc3VyZW1lbnRzLiBPdmVyIHRoaXMgdGltZSBwZXJpb2QsIGNvbGxlY3Rpb24gdGVtcGVyYXR1cmVzIHJhbmdlZCBmcm9tIGByIHBhc3RlKG1pbihmdWxsX2RhdGEkY29sbGVjdGlvbl90ZW1wKSwgIiB0byAiLCBtYXgoZnVsbF9kYXRhJGNvbGxlY3Rpb25fdGVtcCksIHNlcCA9ICIiKWDCsEMuIAoKIyMgVGVtcGVyYXR1cmUgVmFyaWF0aW9uIApXYXRlciB0ZW1wZXJhdHVyZXMgaW4gTGFrZSBDaGFtcGxhaW4gcmVhY2hlZCBhIG1pbmltdW0gaW4gRmVicnVhcnkuIFNhbXBsaW5nIGZvciB0aGlzIHByb2plY3QgYmVnYW4gZHVyaW5nIHRoZSBTcHJpbmcgd2FybWluZyBwZXJpb2QuIFRlbXBlcmF0dXJlIHZhcmlhYmlsaXR5IChib3RoIHJhbmdlcyBhbmQgdmFyaWFuY2UpIGluY3JlYXNlIHdpdGggdGVtcGVyYXR1cmUsIGJ1dCBhcmUgc3Ryb25nbHkgYWZmZWN0ZWQgYnkgdGhlIGxlbmd0aCBvZiB0aW1lIHBlcmlvZCBleGFtaW5lZC4gICAgCgpgYGB7ciBwdWxsaW5nLXRlbXAtZGF0YX0KIyBMYWtlIENoYW1wbGFpbiBuZWFyIEJ1cmxpbmd0b24sIFZUCnNpdGVOdW1iZXIgPSAiMDQyOTQ1MDAiCkNoYW1wbGFpbkluZm8gPSByZWFkTldJU3NpdGUoc2l0ZU51bWJlcikKcGFyYW1ldGVyQ2QgPSAiMDAwMTAiCnN0YXJ0RGF0ZSA9ICIyMDIzLTAxLTAxIgplbmREYXRlID0gIiIKI3N0YXRDZCA9IGMoIjAwMDAxIiwgIjAwMDAyIiwiMDAwMDMiLCAiMDAwMTEiKSAjIDEgLSBtYXgsIDIgLSBtaW4sIDMgPSBtZWFuCgojIENvbnN0cnVjdHMgdGhlIFVSTCBmb3IgdGhlIGRhdGEgd2FudGVkIHRoZW4gZG93bmxvYWRzIHRoZSBkYXRhCnVybCA9IGNvbnN0cnVjdE5XSVNVUkwoc2l0ZU51bWJlcnMgPSBzaXRlTnVtYmVyLCBwYXJhbWV0ZXJDZCA9IHBhcmFtZXRlckNkLCAKICAgICAgICAgICAgICAgICAgICAgICBzdGFydERhdGUgPSBzdGFydERhdGUsIGVuZERhdGUgPSBlbmREYXRlLCBzZXJ2aWNlID0gInV2IikKCnRlbXBfZGF0YSA9IGltcG9ydFdhdGVyTUwxKHVybCwgYXNEYXRlVGltZSA9IFQpICU+JSAKICBtdXRhdGUoImRhdGUiID0gYXMuRGF0ZShkYXRlVGltZSkpICU+JSAKICBzZWxlY3QoZGF0ZSwgInRlbXAiID0gWF8wMDAxMF8wMDAwMCkKCgojIyBEYWlseSB2YWx1ZXMKZGFpbHlfdGVtcF9kYXRhID0gdGVtcF9kYXRhICU+JQogIHVuZ3JvdXAoKSAlPiUgCiAgZ3JvdXBfYnkoZGF0ZSkgJT4lIAogIHN1bW1hcmlzZShtZWFuX3RlbXAgPSBtZWFuKHRlbXApLAogICAgICAgICAgICBtZWRfdGVtcCA9IG1lZGlhbih0ZW1wKSwKICAgICAgICAgICAgdmFyX3RlbXAgPSB2YXIodGVtcCksIAogICAgICAgICAgICBtaW5fdGVtcCA9IG1pbih0ZW1wKSwgCiAgICAgICAgICAgIG1heF90ZW1wID0gbWF4KHRlbXApKSAlPiUgCiAgbXV0YXRlKCJyYW5nZV90ZW1wIiA9IG1heF90ZW1wIC0gbWluX3RlbXApCgpkYXlfcHJpb3JfdGVtcF9kYXRhID0gdGVtcF9kYXRhICU+JSAKICB1bmdyb3VwKCkgJT4lIAogIGdyb3VwX2J5KGRhdGUpICU+JSAKICBzdW1tYXJpc2UobWVhbl90ZW1wID0gbWVhbih0ZW1wKSwKICAgICAgICAgICAgbWVkX3RlbXAgPSBtZWRpYW4odGVtcCksCiAgICAgICAgICAgIHZhcl90ZW1wID0gdmFyKHRlbXApLCAKICAgICAgICAgICAgbWluX3RlbXAgPSBtaW4odGVtcCksIAogICAgICAgICAgICBtYXhfdGVtcCA9IG1heCh0ZW1wKSkgJT4lIAogIG11dGF0ZShkYXRlID0gZGF0ZSArIDEpICU+JSAKICByZW5hbWVfd2l0aCguZm4gPSB+IHBhc3RlMCgicHJpb3JfZGF5XyIsIC54KSwgLmNvbHMgPSBjKC1kYXRlKSkKCmRhaWx5X3Bsb3QgPSBkYWlseV90ZW1wX2RhdGEgJT4lIAogIHBpdm90X2xvbmdlcihjb2xzID0gYygtZGF0ZSksCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gInBhcmFtZXRlciIsIAogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAidGVtcCIpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBkYXRlLCB5ID0gdGVtcCwgY29sb3VyID0gcGFyYW1ldGVyKSkgKyAKICBnZW9tX2xpbmUobGluZXdpZHRoID0gMSkgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGMoCiAgICAibWVhbl90ZW1wIiA9ICJvbGl2ZWRyYWIzIiwKICAgICJtZWRfdGVtcCIgPSAic2VhZ3JlZW4zIiwKICAgICJtYXhfdGVtcCIgPSAidG9tYXRvIiwgIAogICAgIm1pbl90ZW1wIiA9ICJkb2RnZXJibHVlIiwKICAgICJyYW5nZV90ZW1wIiA9ICJnb2xkZW5yb2QzIiwKICAgICJ2YXJfdGVtcCIgPSAiZGFya2dvbGRlbnJvZDEiCiAgKSkgKyAKICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gYXMuRGF0ZShjKCIyMDIzLTAxLTAxIiwgIjIwMjMtMDQtMDEiLCAiMjAyMy0wNy0wMSIpKSkgKyAKICBnZ3RpdGxlKCJEYWlseSBWYWx1ZXMiKSArIAogIGxhYnMoeSA9ICJUZW1wZXJhdHVyZSAowrBDKSIsCiAgICAgICB4ID0gIiIpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMjApICsgCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDI3MCwgaGp1c3QgPSAwLCB2anVzdCA9IDAuNSkpCmBgYAoKYGBge3IgcHJlZGljdG9ycy1mdW5jdGlvbn0KIyMgRGVmaW5pbmcgdGhlIGZ1bmN0aW9uIHRvIGdldCBwcmVkaWN0b3IgdmFsdWVzIGZvciBwZXJpb2RzIG9mIGRpZmZlcmVudCBsZW5ndGhzCmdldF9wcmVkaWN0b3JzID0gZnVuY3Rpb24oZGFpbHlfdmFsdWVzLCByYXdfdGVtcCwgbl9kYXlzKXsKICBwcmVmaXggPSBzdHJfcmVwbGFjZV9hbGwoeGZ1bjo6bnVtYmVyc190b193b3JkcyhuX2RheXMpLCBwYXR0ZXJuID0gIiAiLCByZXBsYWNlbWVudCA9ICItIikKICAKICBtZWFuX3ZhbHVlcyA9IGRhaWx5X3ZhbHVlcyAlPiUgCiAgICB1bmdyb3VwKCkgJT4lIAogICAgbXV0YXRlKG1lYW5fbWF4ID0gc2xpZGVfdmVjKC54ID0gbWF4X3RlbXAsIC5mID0gbWVhbiwgLmJlZm9yZSA9IG5fZGF5cywgLmNvbXBsZXRlID0gVCksCiAgICAgICAgICAgbWVhbl9taW4gPSBzbGlkZV92ZWMoLnggPSBtaW5fdGVtcCwgLmYgPSBtZWFuLCAuYmVmb3JlID0gbl9kYXlzLCAuY29tcGxldGUgPSBUKSwKICAgICAgICAgICBtZWFuX3JhbmdlID0gc2xpZGVfdmVjKC54ID0gcmFuZ2VfdGVtcCwgLmYgPSBtZWFuLCAuYmVmb3JlID0gbl9kYXlzLCAuY29tcGxldGUgPSBUKSkgJT4lIAogICAgc2VsZWN0KGRhdGUsIG1lYW5fbWF4LCBtZWFuX21pbiwgbWVhbl9yYW5nZSkgJT4lIAogICAgcmVuYW1lX3dpdGgoIH4gcGFzdGUocHJlZml4LCAiZGF5IiwgLngsIHNlcCA9ICJfIiksIC5jb2xzID0gYygtZGF0ZSkpCiAgCiAgcGVyaW9kX3ZhbHVlcyA9IHJhd190ZW1wICU+JSAKICAgIG11dGF0ZShtZWFuID0gc2xpZGVfaW5kZXhfbWVhbih0ZW1wLCBpID0gZGF0ZSwgYmVmb3JlID0gZGF5cyhuX2RheXMpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV9ybSA9IFQpLAogICAgICAgICAgIG1heCA9IHNsaWRlX2luZGV4X21heCh0ZW1wLCBpID0gZGF0ZSwgYmVmb3JlID0gZGF5cyhuX2RheXMpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfcm0gPSBUKSwKICAgICAgICAgICBtaW4gPSBzbGlkZV9pbmRleF9taW4odGVtcCwgaSA9IGRhdGUsIGJlZm9yZSA9IGRheXMobl9kYXlzKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfcm0gPSBUKSwKICAgICAgICAgICBtZWQgPSBzbGlkZV9pbmRleF9kYmwodGVtcCwgLmkgPSBkYXRlLCAuYmVmb3JlID0gZGF5cyhuX2RheXMpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfcm0gPSBULCAuZiA9IG1lZGlhbiksCiAgICAgICAgICAgdmFyID0gc2xpZGVfaW5kZXhfZGJsKHRlbXAsIC5pID0gZGF0ZSwgLmJlZm9yZSA9IGRheXMobl9kYXlzKSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIC5mID0gdmFyKSwKICAgICAgICAgICByYW5nZSA9IG1heCAtIG1pbikgJT4lICAKICAgIHNlbGVjdCgtdGVtcCkgJT4lICAKICAgIGRpc3RpbmN0KCkgJT4lIAogICAgcmVuYW1lX3dpdGgoIH4gcGFzdGUocHJlZml4LCAiZGF5IiwgLngsIHNlcCA9ICJfIiksIC5jb2xzID0gYygtZGF0ZSkpJT4lIAogICAgaW5uZXJfam9pbihtZWFuX3ZhbHVlcywgYnkgPSBjKCJkYXRlIikpICU+JSAgCiAgICBkcm9wX25hKCkKICAKICByZXR1cm4ocGVyaW9kX3ZhbHVlcykKfQpgYGAKCgpgYGB7ciBwcmVkaWN0b3JzLWFuZC1wbG90cywgZmlnLndpZHRoPTEyLCBmaWcuaGVpZ2h0PTV9CiMjIEdldHRpbmcgcHJlZGljdG9yIHZhcmlhYmxlcyBmb3IgZGlmZmVyZW50IHBlcmlvZHMKCiMjIyBTaG9ydCAodGhyZWUgZGF5cykKdGhyZWVfZGF5X3RlbXBzID0gZ2V0X3ByZWRpY3RvcnMoZGFpbHlfdmFsdWVzID0gZGFpbHlfdGVtcF9kYXRhLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmF3X3RlbXAgPSB0ZW1wX2RhdGEsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuX2RheXMgPSAzKQoKIyMjIE9ORSBXRUVLCndlZWtfdGVtcHMgPSBnZXRfcHJlZGljdG9ycyhkYWlseV92YWx1ZXMgPSBkYWlseV90ZW1wX2RhdGEsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgcmF3X3RlbXAgPSB0ZW1wX2RhdGEsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbl9kYXlzID0gNykKCndlZWtfcGxvdCA9IHdlZWtfdGVtcHMgJT4lIAogIHBpdm90X2xvbmdlcihjb2xzID0gYygtZGF0ZSksCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gInBhcmFtZXRlciIsIAogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAidGVtcCIpICU+JSAKICBmaWx0ZXIocGFyYW1ldGVyICVpbiUgYygic2V2ZW5fZGF5X21lYW4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICJzZXZlbl9kYXlfbWVkIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAic2V2ZW5fZGF5X21heCIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICJzZXZlbl9kYXlfbWluIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgInNldmVuX2RheV92YXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJzZXZlbl9kYXlfcmFuZ2UiKSkgJT4lIAogIG11dGF0ZShwYXJhbWV0ZXIgPSBwYXN0ZSh3b3JkKHBhcmFtZXRlciwgc3RhcnQgPSAzLCBzZXAgPSBmaXhlZCgiXyIpKSwgIl90ZW1wIiwgc2VwID0gIiIpKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gZGF0ZSwgeSA9IHRlbXAsIGNvbG91ciA9IHBhcmFtZXRlcikpICsgCiAgZ2VvbV9saW5lKGxpbmV3aWR0aCA9IDEpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKAogICAgIm1lYW5fdGVtcCIgPSAib2xpdmVkcmFiMyIsCiAgICAibWVkX3RlbXAiID0gInNlYWdyZWVuMyIsCiAgICAibWF4X3RlbXAiID0gInRvbWF0byIsICAKICAgICJtaW5fdGVtcCIgPSAiZG9kZ2VyYmx1ZSIsCiAgICAicmFuZ2VfdGVtcCIgPSAiZ29sZGVucm9kMyIsCiAgICAidmFyX3RlbXAiID0gImRhcmtnb2xkZW5yb2QxIgogICkpICsgCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IGFzLkRhdGUoYygiMjAyMy0wMS0wMSIsICIyMDIzLTA0LTAxIiwgIjIwMjMtMDctMDEiKSkpICsgCiAgZ2d0aXRsZSgiT25lIFdlZWsiKSArIAogIGxhYnMoeSA9ICJUZW1wZXJhdHVyZSAowrBDKSIsCiAgICAgICB4ID0gIiIpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMjApICsgCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDI3MCwgaGp1c3QgPSAwLCB2anVzdCA9IDAuNSkpCgoKIyMjIFRXTyBXRUVLUwp0d29fd2Vla190ZW1wcyA9IGdldF9wcmVkaWN0b3JzKGRhaWx5X3ZhbHVlcyA9IGRhaWx5X3RlbXBfZGF0YSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmF3X3RlbXAgPSB0ZW1wX2RhdGEsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5fZGF5cyA9IDE0KQoKdHdvX3dlZWtfcGxvdCA9IHR3b193ZWVrX3RlbXBzICU+JSAKICBwaXZvdF9sb25nZXIoY29scyA9IGMoLWRhdGUpLAogICAgICAgICAgICAgICBuYW1lc190byA9ICJwYXJhbWV0ZXIiLCAKICAgICAgICAgICAgICAgdmFsdWVzX3RvID0gInRlbXAiKSAlPiUgCiAgZmlsdGVyKHBhcmFtZXRlciAlaW4lIGMoImZvdXJ0ZWVuX2RheV9tZWFuIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiZm91cnRlZW5fZGF5X21lZCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgImZvdXJ0ZWVuX2RheV9tYXgiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAiZm91cnRlZW5fZGF5X21pbiIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICJmb3VydGVlbl9kYXlfdmFyIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiZm91cnRlZW5fZGF5X3JhbmdlIikpICU+JSAKICBtdXRhdGUocGFyYW1ldGVyID0gcGFzdGUod29yZChwYXJhbWV0ZXIsIHN0YXJ0ID0gMywgc2VwID0gZml4ZWQoIl8iKSksICJfdGVtcCIsIHNlcCA9ICIiKSkgJT4lIAogIGdncGxvdChhZXMoeCA9IGRhdGUsIHkgPSB0ZW1wLCBjb2xvdXIgPSBwYXJhbWV0ZXIpKSArIAogIGdlb21fbGluZShsaW5ld2lkdGggPSAxKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygKICAgICJtZWFuX3RlbXAiID0gIm9saXZlZHJhYjMiLAogICAgIm1lZF90ZW1wIiA9ICJzZWFncmVlbjMiLAogICAgIm1heF90ZW1wIiA9ICJ0b21hdG8iLCAgCiAgICAibWluX3RlbXAiID0gImRvZGdlcmJsdWUiLAogICAgInJhbmdlX3RlbXAiID0gImdvbGRlbnJvZDMiLAogICAgInZhcl90ZW1wIiA9ICJkYXJrZ29sZGVucm9kMSIKICApKSArIAogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBhcy5EYXRlKGMoIjIwMjMtMDEtMDEiLCAiMjAyMy0wNC0wMSIsICIyMDIzLTA3LTAxIikpKSArIAogIGdndGl0bGUoIlR3byBXZWVrcyIpICsgCiAgbGFicyh5ID0gIlRlbXBlcmF0dXJlICjCsEMpIiwKICAgICAgIHggPSAiIikgKyAKICB0aGVtZV9idyhiYXNlX3NpemUgPSAyMCkgKyAKICB0aGVtZShwYW5lbC5ncmlkID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gMjcwLCBoanVzdCA9IDAsIHZqdXN0ID0gMC41KSkKCgojIyMgRk9VUiBXRUVLUwpmb3VyX3dlZWtfdGVtcHMgPSBnZXRfcHJlZGljdG9ycyhkYWlseV92YWx1ZXMgPSBkYWlseV90ZW1wX2RhdGEsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByYXdfdGVtcCA9IHRlbXBfZGF0YSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5fZGF5cyA9IDI4KQoKZm91cl93ZWVrX3Bsb3QgPSBmb3VyX3dlZWtfdGVtcHMgJT4lIAogIHBpdm90X2xvbmdlcihjb2xzID0gYygtZGF0ZSksCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gInBhcmFtZXRlciIsIAogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAidGVtcCIpICU+JSAKICBmaWx0ZXIocGFyYW1ldGVyICVpbiUgYygidHdlbnR5LWVpZ2h0X2RheV9tZWFuIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAidHdlbnR5LWVpZ2h0X2RheV9tZWQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJ0d2VudHktZWlnaHRfZGF5X21heCIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICJ0d2VudHktZWlnaHRfZGF5X21pbiIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICJ0d2VudHktZWlnaHRfZGF5X3ZhciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgInR3ZW50eS1laWdodF9kYXlfcmFuZ2UiKSkgJT4lIAogIG11dGF0ZShwYXJhbWV0ZXIgPSBwYXN0ZSh3b3JkKHBhcmFtZXRlciwgc3RhcnQgPSAzLCBzZXAgPSBmaXhlZCgiXyIpKSwgIl90ZW1wIiwgc2VwID0gIiIpKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gZGF0ZSwgeSA9IHRlbXAsIGNvbG91ciA9IHBhcmFtZXRlcikpICsgCiAgZ2VvbV9saW5lKGxpbmV3aWR0aCA9IDEpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKAogICAgIm1lYW5fdGVtcCIgPSAib2xpdmVkcmFiMyIsCiAgICAibWVkX3RlbXAiID0gInNlYWdyZWVuMyIsCiAgICAibWF4X3RlbXAiID0gInRvbWF0byIsICAKICAgICJtaW5fdGVtcCIgPSAiZG9kZ2VyYmx1ZSIsCiAgICAicmFuZ2VfdGVtcCIgPSAiZ29sZGVucm9kMyIsCiAgICAidmFyX3RlbXAiID0gImRhcmtnb2xkZW5yb2QxIgogICkpICsgCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IGFzLkRhdGUoYygiMjAyMy0wMS0wMSIsICIyMDIzLTA0LTAxIiwgIjIwMjMtMDctMDEiKSkpICsgCiAgZ2d0aXRsZSgiRm91ciBXZWVrcyIpICsgCiAgbGFicyh5ID0gIlRlbXBlcmF0dXJlICjCsEMpIiwKICAgICAgIHggPSAiIikgKyAKICB0aGVtZV9idyhiYXNlX3NpemUgPSAyMCkgKyAKICB0aGVtZShwYW5lbC5ncmlkID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gMjcwLCBoanVzdCA9IDAsIHZqdXN0ID0gMC41KSkKCgojIyMgRUlHSFQgV0VFS1MKZWlnaHRfd2Vla190ZW1wcyA9IGdldF9wcmVkaWN0b3JzKGRhaWx5X3ZhbHVlcyA9IGRhaWx5X3RlbXBfZGF0YSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByYXdfdGVtcCA9IHRlbXBfZGF0YSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuX2RheXMgPSA1NikKCmVpZ2h0X3dlZWtfcGxvdCA9IGVpZ2h0X3dlZWtfdGVtcHMgJT4lIAogIHBpdm90X2xvbmdlcihjb2xzID0gYygtZGF0ZSksCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gInBhcmFtZXRlciIsIAogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAidGVtcCIpICU+JSAKICBmaWx0ZXIocGFyYW1ldGVyICVpbiUgYygiZmlmdHktc2l4X2RheV9tZWFuIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAiZmlmdHktc2l4X2RheV9tZWQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICJmaWZ0eS1zaXhfZGF5X21heCIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICJmaWZ0eS1zaXhfZGF5X21pbiIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICJmaWZ0eS1zaXhfZGF5X3ZhciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgImZpZnR5LXNpeF9kYXlfcmFuZ2UiKSkgJT4lIAogIG11dGF0ZShwYXJhbWV0ZXIgPSBwYXN0ZSh3b3JkKHBhcmFtZXRlciwgc3RhcnQgPSAzLCBzZXAgPSBmaXhlZCgiXyIpKSwgIl90ZW1wIiwgc2VwID0gIiIpKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gZGF0ZSwgeSA9IHRlbXAsIGNvbG91ciA9IHBhcmFtZXRlcikpICsgCiAgZ2VvbV9saW5lKGxpbmV3aWR0aCA9IDEpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKAogICAgIm1lYW5fdGVtcCIgPSAib2xpdmVkcmFiMyIsCiAgICAibWVkX3RlbXAiID0gInNlYWdyZWVuMyIsCiAgICAibWF4X3RlbXAiID0gInRvbWF0byIsICAKICAgICJtaW5fdGVtcCIgPSAiZG9kZ2VyYmx1ZSIsCiAgICAicmFuZ2VfdGVtcCIgPSAiZ29sZGVucm9kMyIsCiAgICAidmFyX3RlbXAiID0gImRhcmtnb2xkZW5yb2QxIgogICkpICsgCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IGFzLkRhdGUoYygiMjAyMy0wMS0wMSIsICIyMDIzLTA0LTAxIiwgIjIwMjMtMDctMDEiKSkpICsgCiAgZ2d0aXRsZSgiRWlnaHQgV2Vla3MiKSArIAogIGxhYnMoeSA9ICJUZW1wZXJhdHVyZSAowrBDKSIsCiAgICAgICB4ID0gIiIpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMjApICsgCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDI3MCwgaGp1c3QgPSAwLCB2anVzdCA9IDAuNSkpCgpnZ2FycmFuZ2UoZGFpbHlfcGxvdCwgd2Vla19wbG90LCB0d29fd2Vla19wbG90LCBmb3VyX3dlZWtfcGxvdCwgZWlnaHRfd2Vla19wbG90LCAKICAgICAgICAgIGNvbW1vbi5sZWdlbmQgPSBULCBucm93ID0gMSwgbGVnZW5kID0gImJvdHRvbSIpCmBgYAoKYGBge3J9Cm9uZV93ZWVrX2RveV9kYXRhID0gd2Vla190ZW1wcyAlPiUgCiAgbXV0YXRlKGRveSA9IHlkYXkoZGF0ZSkpCgpvbmVfd2Vla190ZW1wX2NpcmNsZSA9IGdncGxvdChvbmVfd2Vla19kb3lfZGF0YSwgYWVzKHggPSBzZXZlbl9kYXlfbWVhbl9tYXgsIHkgPSBzZXZlbl9kYXlfbWVhbl9taW4sIGNvbG91ciA9IGRveSkpICsgCiAgZ2VvbV9wb2ludCgpICsgCiAgc2NhbGVfY29sb3VyX2dyYWRpZW50KAogICAgaGlnaCA9ICJjb3JhbDIiLAogICAgbG93ID0gImRvZGdlcmJsdWU0IikgKyAKICBsYWJzKHggPSAiTWF4LiBUZW1wLiAowrBDKSIsCiAgICAgICB5ID0gIk1pbi4gVGVtcC4gKMKwQykiKSArIAogIGxhYnMoeCA9ICJNYXguIFRlbXAuICjCsEMpIiwKICAgICAgIHkgPSAiTWluLiBUZW1wLiAowrBDKSIpICsgCiAgZ2d0aXRsZSgiT25lIFdlZWsiKSArIAogIHRoZW1lX21hdHQoKQpgYGAKClRoZSBkaWZmZXJlbnQgdGltZSBwZXJpb2RzIGV4YW1pbmVkIGJ5IHRoaXMgY2xpbWF0ZSBkYXRhIGhpZ2hsaWdodHMgdGhhdCB0aGUgcmVsYXRpb25zaGlwIGJldHdlZW4gbWluaW11bSBhbmQgbWF4aW11bSB0ZW1wZXJhdHVyZXMgY2hhbmdlcyBiYXNlZCBvbiB0aGUgd2luZG93IGV4YW1pbmVkLiBGb3IgZXhhbXBsZSwgbWluaW11bSBhbmQgbWF4aW11bSB0ZW1wZXJhdHVyZXMgZXhwZXJpZW5jZWQgb3ZlciB3ZWVrbHkgaW50ZXJ2YWxzIGFyZSBjbG9zZWx5IGxpbmtlZCwgd2hlcmVhcyB0aGVyZSBpcyBhIGRpc3RpbmN0IHNlYXNvbmFsIGN5Y2xlIGluIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiBtaW5pbXVtIGFuZCBtYXhpbXVtIHRlbXBlcmF0dXJlcyBleHBlcmllbmNlZCBvdmVyIHBlcmlvZHMgb2YgZm91ciB3ZWVrcy4gCgpgYGB7cn0KZm91cl93ZWVrX2RveV9kYXRhID0gZm91cl93ZWVrX3RlbXBzICU+JSAKICBtdXRhdGUoZG95ID0geWRheShkYXRlKSkKCmZvdXJfd2Vla190ZW1wX2NpcmNsZSA9IGdncGxvdChmb3VyX3dlZWtfZG95X2RhdGEsIGFlcyh4ID0gYHR3ZW50eS1laWdodF9kYXlfbWF4YCwgeSA9IGB0d2VudHktZWlnaHRfZGF5X21pbmAsIGNvbG91ciA9IGRveSkpICsgCiAgZ2VvbV9wb2ludCgpICsgCiAgc2NhbGVfY29sb3VyX2dyYWRpZW50KAogICAgaGlnaCA9ICJjb3JhbDIiLAogICAgbG93ID0gImRvZGdlcmJsdWU0IikgKyAKICBsYWJzKHggPSAiTWF4LiBUZW1wLiAowrBDKSIsCiAgICAgICB5ID0gIk1pbi4gVGVtcC4gKMKwQykiKSArIAogIGdndGl0bGUoIkZvdXIgV2VlayIpICsgCiAgdGhlbWVfbWF0dCgpCgpnZ2FycmFuZ2Uob25lX3dlZWtfdGVtcF9jaXJjbGUsIGZvdXJfd2Vla190ZW1wX2NpcmNsZSwKICAgICAgICAgIGNvbW1vbi5sZWdlbmQgPSBULCBsZWdlbmQgPSAiYm90dG9tIikKYGBgCgoKYGBge3IgY3RtYXgtdGltZXNlcmllcywgZmlnLndpZHRoPTEwLCBmaWcuaGVpZ2h0PTV9CiMjIERhaWx5IHZhbHVlcyBmb3IgdGhlIHBlcmlvZCBleGFtaW5lZCBieSBkYXRhc2V0CmNvbGxlY3Rpb25fY29uZGl0aW9ucyA9IHRlbXBfZGF0YSAlPiUKICB1bmdyb3VwKCkgJT4lIAogIGdyb3VwX2J5KGRhdGUpICU+JSAKICBzdW1tYXJpc2UobWVhbl90ZW1wID0gbWVhbih0ZW1wKSwKICAgICAgICAgICAgbWVkX3RlbXAgPSBtZWRpYW4odGVtcCksCiAgICAgICAgICAgIHZhcl90ZW1wID0gdmFyKHRlbXApLCAKICAgICAgICAgICAgbWluX3RlbXAgPSBtaW4odGVtcCksIAogICAgICAgICAgICBtYXhfdGVtcCA9IG1heCh0ZW1wKSkgJT4lIAogIG11dGF0ZSgicmFuZ2VfdGVtcCIgPSBtYXhfdGVtcCAtIG1pbl90ZW1wLAogICAgICAgICBkYXRlID0gYXMuRGF0ZShkYXRlKSkgJT4lIAogIHVuZ3JvdXAoKSAlPiUgIAogIGZpbHRlcihkYXRlID49IChtaW4oYXMuRGF0ZShmdWxsX2RhdGEkY29sbGVjdGlvbl9kYXRlKSkgLSA3KSkKCiMjIE1lYW4gZmVtYWxlIHRoZXJtYWwgbGltaXRzIGZvciBlYWNoIHNwZWNpZXMsIGdyb3VwZWQgYnkgY29sbGVjdGlvbgpzcGVjaWVzX3N1bW1hcmllcyA9IGZ1bGxfZGF0YSAlPiUgIAogICNmaWx0ZXIoc2V4ID09ICJmZW1hbGUiKSAlPiUgCiAgZ3JvdXBfYnkoc3BfbmFtZSwgY29sbGVjdGlvbl9kYXRlLCBjb2xsZWN0aW9uX3RlbXApICU+JSAgCiAgc3VtbWFyaXNlKCJtZWFuX2N0bWF4IiA9IG1lYW4oY3RtYXgpLAogICAgICAgICAgICAic2FtcGxlX3NpemUiID0gbigpLAogICAgICAgICAgICAiY3RtYXhfc3RfZXJyIiA9IChzZChjdG1heCkgLyBzcXJ0KHNhbXBsZV9zaXplKSksCiAgICAgICAgICAgICJjdG1heF92YXIiID0gdmFyKGN0bWF4KSwgCiAgICAgICAgICAgICJtZWFuX3NpemUiID0gbWVhbihzaXplKSwKICAgICAgICAgICAgInNpemVfc3RfZXJyIiA9IChzZChzaXplKSAvIHNxcnQoc2FtcGxlX3NpemUpKSwKICAgICAgICAgICAgInNpemVfdmFyIiA9IHZhcihzaXplKSkgJT4lICAKICB1bmdyb3VwKCkgJT4lIAogIGNvbXBsZXRlKHNwX25hbWUsIGNvbGxlY3Rpb25fZGF0ZSkgJT4lIAogIGFycmFuZ2UoZGVzYyhzYW1wbGVfc2l6ZSkpCgphZHVsdF9zdW1tYXJpZXMgPSBmdWxsX2RhdGEgJT4lICAKICBmaWx0ZXIoc2V4ID09ICJmZW1hbGUiKSAlPiUgCiAgZ3JvdXBfYnkoc3BfbmFtZSwgY29sbGVjdGlvbl9kYXRlLCBjb2xsZWN0aW9uX3RlbXApICU+JSAgCiAgc3VtbWFyaXNlKCJtZWFuX2N0bWF4IiA9IG1lYW4oY3RtYXgpLAogICAgICAgICAgICAic2FtcGxlX3NpemUiID0gbigpLAogICAgICAgICAgICAiY3RtYXhfc3RfZXJyIiA9IChzZChjdG1heCkgLyBzcXJ0KHNhbXBsZV9zaXplKSksCiAgICAgICAgICAgICJjdG1heF92YXIiID0gdmFyKGN0bWF4KSwgCiAgICAgICAgICAgICJtZWFuX3NpemUiID0gbWVhbihzaXplKSwKICAgICAgICAgICAgInNpemVfc3RfZXJyIiA9IChzZChzaXplKSAvIHNxcnQoc2FtcGxlX3NpemUpKSwKICAgICAgICAgICAgInNpemVfdmFyIiA9IHZhcihzaXplKSkgJT4lICAKICB1bmdyb3VwKCkgJT4lIAogIGNvbXBsZXRlKHNwX25hbWUsIGNvbGxlY3Rpb25fZGF0ZSkgJT4lIAogIGFycmFuZ2UoZGVzYyhzYW1wbGVfc2l6ZSkpCgpnZ3Bsb3QoKSArIAogIGdlb21fdmxpbmUoZGF0YSA9IHVuaXF1ZShzZWxlY3QoZnVsbF9kYXRhLCBjb2xsZWN0aW9uX2RhdGUpKSwgCiAgICAgICAgICAgICBhZXMoeGludGVyY2VwdCA9IGFzLkRhdGUoY29sbGVjdGlvbl9kYXRlKSksCiAgICAgICAgICAgICBjb2xvdXIgPSAiZ3JleTkwIiwKICAgICAgICAgICAgIGxpbmV3aWR0aCA9IDEpICsgCiAgZ2VvbV9saW5lKGRhdGEgPSBjb2xsZWN0aW9uX2NvbmRpdGlvbnMsIAogICAgICAgICAgICBhZXMoeCA9IGFzLkRhdGUoZGF0ZSksIHkgPSBtZWFuX3RlbXApLAogICAgICAgICAgICBjb2xvdXIgPSAiYmxhY2siLCAKICAgICAgICAgICAgbGluZXdpZHRoID0gMikgKyAKICAjIGdlb21fZXJyb3JiYXIoZGF0YSA9IHNwZWNpZXNfc3VtbWFyaWVzLAogICMgICAgICAgICAgICAgICBhZXMoeCA9IGFzLkRhdGUoY29sbGVjdGlvbl9kYXRlKSwKICAjICAgICAgICAgICAgICAgICAgIHltaW4gPSBtZWFuX2N0bWF4IC0gY3RtYXhfc3RfZXJyLCB5bWF4ID0gbWVhbl9jdG1heCArIGN0bWF4X3N0X2VyciwKICAjICAgICAgICAgICAgICAgICAgIGNvbG91ciA9IHNwX25hbWUpLAogICMgICAgICAgICAgICAgICBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMSksCiAgIyAgICAgICAgICAgICAgIHdpZHRoID0gNSwgbGluZXdpZHRoID0gMSkgKwogIGdlb21fcG9pbnQoZGF0YSA9IHNwZWNpZXNfc3VtbWFyaWVzLCAKICAgICAgICAgICAgIGFlcyh4ID0gYXMuRGF0ZShjb2xsZWN0aW9uX2RhdGUpLCB5ID0gbWVhbl9jdG1heCwgY29sb3VyID0gc3BfbmFtZSwgc2l6ZSA9IHNhbXBsZV9zaXplKSkgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IHNwZWNpZXNfY29scykgKyAKICBsYWJzKHggPSAiRGF0ZSIsIAogICAgICAgeSA9ICJUZW1wZXJhdHVyZSAowrBDKSIsIAogICAgICAgY29sb3VyID0gIlNwZWNpZXMiLAogICAgICAgc2l6ZSA9ICJTYW1wbGUgU2l6ZSIpICsgCiAgdGhlbWVfbWF0dCgpICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikKCnNpemVfdGltZXNlcmllcyA9IGdncGxvdCgpICsgCiAgZ2VvbV92bGluZShkYXRhID0gdW5pcXVlKHNlbGVjdChmdWxsX2RhdGEsIGNvbGxlY3Rpb25fZGF0ZSkpLCAKICAgICAgICAgICAgIGFlcyh4aW50ZXJjZXB0ID0gYXMuRGF0ZShjb2xsZWN0aW9uX2RhdGUpKSwKICAgICAgICAgICAgIGNvbG91ciA9ICJncmV5OTAiLAogICAgICAgICAgICAgbGluZXdpZHRoID0gMSkgKyAKICBnZW9tX2xpbmUoZGF0YSA9IGNvbGxlY3Rpb25fY29uZGl0aW9ucywgCiAgICAgICAgICAgIGFlcyh4ID0gYXMuRGF0ZShkYXRlKSwgeSA9IG1lYW5fdGVtcCksCiAgICAgICAgICAgIGNvbG91ciA9ICJibGFjayIsIAogICAgICAgICAgICBsaW5ld2lkdGggPSAyKSArIAogICMgZ2VvbV9lcnJvcmJhcihkYXRhID0gc3BlY2llc19zdW1tYXJpZXMsCiAgIyAgICAgICAgICAgICAgIGFlcyh4ID0gYXMuRGF0ZShjb2xsZWN0aW9uX2RhdGUpLCAKICAjICAgICAgICAgICAgICAgICAgIHltaW4gPSBtZWFuX2N0bWF4IC0gY3RtYXhfc3RfZXJyLCB5bWF4ID0gbWVhbl9jdG1heCArIGN0bWF4X3N0X2VyciwKICAjICAgICAgICAgICAgICAgICAgIGNvbG91ciA9IHNwX25hbWUpLAogICMgICAgICAgICAgICAgICBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMSksCiAgIyAgICAgICAgICAgICAgIHdpZHRoID0gNSwgbGluZXdpZHRoID0gMSkgKyAKICBnZW9tX3BvaW50KGRhdGEgPSBzcGVjaWVzX3N1bW1hcmllcywgCiAgICAgICAgICAgICBhZXMoeCA9IGFzLkRhdGUoY29sbGVjdGlvbl9kYXRlKSwgeSA9IG1lYW5fc2l6ZSAqIDQwLCBjb2xvdXIgPSBzcF9uYW1lKSwKICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAxKSwKICAgICAgICAgICAgIHNpemUgPSA0KSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIHNjYWxlX3lfY29udGludW91cygKICAgIG5hbWUgPSAiVGVtcGVyYXR1cmUiLCAjIEZlYXR1cmVzIG9mIHRoZSBmaXJzdCBheGlzCiAgICBzZWMuYXhpcyA9IHNlY19heGlzKH4uLzQwLCBuYW1lPSJQcm9zb21lIExlbmd0aCAobW0pIiksICMgQWRkIGEgc2Vjb25kIGF4aXMgYW5kIHNwZWNpZnkgaXRzIGZlYXR1cmVzCiAgICBicmVha3MgPSBjKDAsNSwxMCwxNSwyMCwyNSwzMCkKICApICsgCiAgbGFicyh4ID0gIkRhdGUiLCAKICAgICAgIHkgPSAiVGVtcGVyYXR1cmUgKMKwQykiLCAKICAgICAgIGNvbG91ciA9ICJTcGVjaWVzIikgKyAKICB0aGVtZV9tYXR0KCkgKyAKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAicmlnaHQiKQoKI2dnYXJyYW5nZShjdG1heF90aW1lc2VyaWVzLCBzaXplX3RpbWVzZXJpZXMsIGNvbW1vbi5sZWdlbmQgPSBULCBsZWdlbmQgPSAiYm90dG9tIikKYGBgCgoKYGBge3IgcHVsbGluZy1wcmVkaWN0b3JzfQojIyBDb21iaW5lIGRhdGEsIHRoZW4gcHVsbCBvdXQgdmFsdWVzIGZvciBlYWNoIGNvbGxlY3Rpb24gZGF0ZQpkYXRlX2xpc3QgPSBhcy5EYXRlKHVuaXF1ZShmdWxsX2RhdGEkY29sbGVjdGlvbl9kYXRlKSkKCnRlbXBfcHJlZGljdG9ycyA9IGRhaWx5X3RlbXBfZGF0YSAlPiUgCiAgZnVsbF9qb2luKGRheV9wcmlvcl90ZW1wX2RhdGEsIGJ5ID0gYygiZGF0ZSIpKSAlPiUgCiAgZnVsbF9qb2luKHRocmVlX2RheV90ZW1wcywgYnkgPSBjKCJkYXRlIikpICU+JSAKICBmdWxsX2pvaW4od2Vla190ZW1wcywgYnkgPSBjKCJkYXRlIikpICU+JSAKICBmdWxsX2pvaW4odHdvX3dlZWtfdGVtcHMsIGJ5ID0gYygiZGF0ZSIpKSAlPiUgCiAgZnVsbF9qb2luKGZvdXJfd2Vla190ZW1wcywgYnkgPSBjKCJkYXRlIikpICU+JSAKICBmdWxsX2pvaW4oZWlnaHRfd2Vla190ZW1wcywgYnkgPSBjKCJkYXRlIikpICU+JSAKICBmaWx0ZXIoZGF0ZSAlaW4lIGRhdGVfbGlzdCkKYGBgCgpBIHNldCBvZiBwcmVkaWN0b3JzIHZhcmlhYmxlcyB3ZXJlIGFzc2VtYmxlZCBmcm9tIHRoZSBjb250aW51b3VzIHRlbXBlcmF0dXJlIGRhdGEgc2V0IGJhc2VkIG9uIGNvbmRpdGlvbnMgZHVyaW5nIHRoZSBkYXkgb2YgY29sbGVjdGlvbiwgdGhlIHdlZWsgYmVmb3JlIGNvbGxlY3Rpb25zLCBhbmQgdGhlIHByZWNlZGluZyB0d28sIGZvdXIsIGFuZCBlaWdodCB3ZWVrIHBlcmlvZHMuIFRoaXMgaXMgYSBwcmVsaW1pbmFyeSBhbmFseXNpcyBmb3Igbm93LiBTaG93biBoZXJlIGFyZSB0aGUgdG9wIHRocmVlIGZhY3RvcnMuIFNwZWNpZXMgd2l0aCBubyBzaWduaWZpY2FudCBwcmVkaWN0b3Igb3IgbGltaXRlZCBjb2xsZWN0aW9uIGRhdGUgZGlzdHJpYnV0aW9ucyB3ZXJlIGV4Y2x1ZGVkLiAKCmBgYHtyIHByZWRpY3Rvci1jb3JyZWxhdGlvbnN9Cm51bV9jb2xscyA9IGZ1bGxfZGF0YSAlPiUgCiAgZmlsdGVyKHNleCA9PSAiZmVtYWxlIikgJT4lIAogIHNlbGVjdChjb2xsZWN0aW9uX2RhdGUsIHNwX25hbWUpICU+JSAgCiAgZGlzdGluY3QoKSAlPiUgIAogIGNvdW50KHNwX25hbWUpICU+JSAKICBmaWx0ZXIobiA+PSA1KQoKY29ycl92YWxzID0gZnVsbF9kYXRhICU+JQogIGZpbHRlcihzcF9uYW1lICVpbiUgbnVtX2NvbGxzJHNwX25hbWUpICU+JSAKICBmaWx0ZXIoc2V4ID09ICJmZW1hbGUiKSAlPiUgCiAgbXV0YXRlKGNvbGxlY3Rpb25fZGF0ZSA9IGFzLkRhdGUoY29sbGVjdGlvbl9kYXRlKSkgJT4lIAogIGZ1bGxfam9pbih0ZW1wX3ByZWRpY3RvcnMsIGpvaW5fYnkoY29sbGVjdGlvbl9kYXRlID09IGRhdGUpKSAlPiUgCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKGNvbGxlY3Rpb25fdGVtcCwgbWVhbl90ZW1wOnRhaWwobmFtZXMoLiksIDEpKSwKICAgICAgICAgICAgICAgdmFsdWVzX3RvID0gInZhbHVlIiwgCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gInByZWRpY3RvciIpICU+JSAgCiAgZ3JvdXBfYnkoc3BfbmFtZSwgcHJlZGljdG9yKSAlPiUgCiAgc3VtbWFyaXNlKGNvcnJlbGF0aW9uID0gY29yLnRlc3QoY3RtYXgsIHZhbHVlKSRlc3RpbWF0ZSwKICAgICAgICAgICAgcC52YWx1ZSA9IGNvci50ZXN0KGN0bWF4LCB2YWx1ZSkkcC52YWx1ZSwKICAgICAgICAgICAgY2lfbG93ID0gY29yLnRlc3QoY3RtYXgsIHZhbHVlKSRjb25mLmludFsxXSwKICAgICAgICAgICAgY2lfaGlnaCA9IGNvci50ZXN0KGN0bWF4LCB2YWx1ZSkkY29uZi5pbnRbMl0pICU+JSAKICBtdXRhdGUoc2lnID0gaWZlbHNlKHAudmFsdWUgPDAuMDUsICJTaWcuIiwgIk5vbiBTaWcuIikpCgpjb3JyX3ZhbHMgJT4lICAKICBmaWx0ZXIoc2lnID09ICJTaWcuIikgJT4lIAogIGRyb3BfbmEoY29ycmVsYXRpb24pICU+JSAKICBncm91cF9ieShzcF9uYW1lKSAlPiUKICBhcnJhbmdlKGRlc2MoY29ycmVsYXRpb24pKSAlPiUgCiAgc2xpY2VfaGVhZChuID0gMykgJT4lIAogIHNlbGVjdCgiU3BlY2llcyIgPSBzcF9uYW1lLCAiUHJlZGljdG9yIiA9IHByZWRpY3RvciwgIkNvcnJlbGF0aW9uIiA9IGNvcnJlbGF0aW9uLCAiUC1WYWx1ZSIgPSBwLnZhbHVlKSAlPiUgCiAga25pdHI6OmthYmxlKGFsaWduID0gImMiKQpgYGAKCiMjIFRyYWl0IFZhcmlhdGlvbiAKYGBge3IgY3RtYXgtYW5kLXNpemUtc3VtLXBsb3QsIGZpZy53aWR0aD0yMCwgZmlnLmhlaWdodD01fQpjdG1heF9wbG90ID0gZnVsbF9kYXRhICU+JSAKICBtdXRhdGUoICNzcF9uYW1lID0gc3RyX3JlcGxhY2Uoc3BfbmFtZSwgcGF0dGVybiA9ICIgIiwKICAgICMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByZXBsYWNlbWVudCA9ICJcbiIpLAogICAgc3BfbmFtZSA9IGZjdF9yZW9yZGVyKHNwX25hbWUsIGN0bWF4LCBtZWFuKSkgJT4lIAogIGdncGxvdChhZXMoeSA9IHNwX25hbWUsIHggPSBjdG1heCkpICsgCiAgZ2VvbV9wb2ludChhZXMoY29sb3VyPSBzcF9uYW1lX3N1YiksCiAgICAgICAgICAgICBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC4zKSwKICAgICAgICAgICAgIHNpemUgPSA0KSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIHhsYWIoTlVMTCkgKyAKICBsYWJzKHkgPSAiIiwKICAgICAgIHggPSAiQ1RtYXggKMKwQykiLAogICAgICAgY29sb3VyID0gIkdyb3VwIikgKyAKICB0aGVtZV9tYXR0KCkgKyAKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIpCgpzaXplX3Bsb3QgPSBmdWxsX2RhdGEgJT4lIAogIG11dGF0ZShzcF9uYW1lID0gZmN0X3Jlb3JkZXIoc3BfbmFtZSwgY3RtYXgsIG1lYW4pKSAlPiUgCiAgZ2dwbG90KGFlcyh5ID0gc3BfbmFtZSwgeCA9IHNpemUpKSArIAogIGdlb21fcG9pbnQoYWVzKGNvbG91cj0gc3BfbmFtZV9zdWIpLAogICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuMyksCiAgICAgICAgICAgICBzaXplID0gNCkgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IHNwZWNpZXNfY29scykgKyAKICBsYWJzKHggPSAiUHJvc29tZSBMZW5ndGggKG1tKSIsCiAgICAgICB5ID0gIiIsIAogICAgICAgY29sb3VyID0gIkdyb3VwIikgKyAKICBndWlkZXMoY29sb3IgPSBndWlkZV9sZWdlbmQobmNvbCA9IDEpKSArCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSApICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IiwKICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigwLCAwLCAwLCAwLCJjbSIpKQoKdHJhaXRfcGxvdCA9IGN0bWF4X3Bsb3QgKyBzaXplX3Bsb3QKdHJhaXRfcGxvdApgYGAKCmBgYHtyIGN0bWF4LWFuZC1zaXplLWhpc3RvZ3JhbXMsIGZpZy53aWR0aD03LCBmaWcuaGVpZ2h0PTIxLCBpbmNsdWRlID0gRn0KZ2dwbG90KGZ1bGxfZGF0YSwgYWVzKHggPSBzaXplLCBmaWxsID0gc3BfbmFtZV9zdWIpKSArIAogIGZhY2V0X3dyYXAoLn5zcF9uYW1lX3N1YiwgbmNvbCA9IDEpICsgCiAgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGggPSAwLjA1KSArIAogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IHNwZWNpZXNfY29scykgKyAKICBsYWJzKHggPSAiUHJvc29tZSBsZW5ndGggKG1tKSIpICsgCiAgdGhlbWVfbWF0dF9mYWNldHMoKSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKCmdncGxvdChmdWxsX2RhdGEsIGFlcyh4ID0gY3RtYXgsIGZpbGwgPSBzcF9uYW1lX3N1YikpICsgCiAgZmFjZXRfd3JhcCgufnNwX25hbWVfc3ViLCBuY29sID0gMSkgKyAKICBnZW9tX2hpc3RvZ3JhbShiaW53aWR0aCA9IDEpICsgCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIGxhYnMoeCA9ICJDVG1heCAowrBDKSIpICsgCiAgdGhlbWVfbWF0dF9mYWNldHMoKSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKYGBgCgpgYGB7ciBmZWN1bmRpdHktaGlzdG9ncmFtLCBmaWcud2lkdGg9NywgZmlnLmhlaWdodD0xMH0KZnVsbF9kYXRhICU+JSAgCiAgZHJvcF9uYShmZWN1bmRpdHkpICU+JSAgCiAgZ2dwbG90KGFlcyh4ID0gZmVjdW5kaXR5LCBmaWxsID0gc3BfbmFtZV9zdWIpKSArIAogIGZhY2V0X3dyYXAoLn5zcF9uYW1lX3N1YiwgbmNvbCA9IDEpICsgCiAgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGggPSAyKSArIAogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IHNwZWNpZXNfY29scykgKyAKICBsYWJzKHggPSAiRmVjdW5kaXR5ICgjIEVnZ3MpIikgKwogIHRoZW1lX21hdHRfZmFjZXRzKCkgKyAKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIpCmBgYAoKIyMjIFZhcmlhdGlvbiB3aXRoIHRlbXBlcmF0dXJlIAoKYGBge3IgdHJhaXQtY29sbC10ZW1wLXBsb3RzLCBmaWcud2lkdGg9MTUsIGZpZy5oZWlnaHQ9MTB9CmN0bWF4X3RlbXAgPSBnZ3Bsb3QoZnVsbF9kYXRhLCBhZXMoeCA9IGNvbGxlY3Rpb25fdGVtcCwgeSA9IGN0bWF4LCBjb2xvdXIgPSBzcF9uYW1lKSkgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBsaW5ld2lkdGggPSAzKSArCiAgZ2VvbV9wb2ludChzaXplID0gMykgKyAKICBsYWJzKHggPSAiQ29sbGVjdGlvbiBUZW1wZXJhdHVyZSAowrBDKSIsIAogICAgICAgeSA9ICJDVG1heCAowrBDKSIsCiAgICAgICBjb2xvdXIgPSAiU3BlY2llcyIpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBzcGVjaWVzX2NvbHMpICsgCiAgdGhlbWVfbWF0dCgpICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikKCnNpemVfdGVtcCA9IGdncGxvdChmaWx0ZXIoZnVsbF9kYXRhLCBzZXggIT0gImp1dmVuaWxlIiksIGFlcyh4ID0gY29sbGVjdGlvbl90ZW1wLCB5ID0gc2l6ZSwgY29sb3VyID0gc3BfbmFtZSkpICsgCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgbGluZXdpZHRoID0gMykgKwogIGdlb21fcG9pbnQoc2l6ZSA9IDMpICsgCiAgbGFicyh4ID0gIkNvbGxlY3Rpb24gVGVtcGVyYXR1cmUgKMKwQykiLCAKICAgICAgIHkgPSAiTGVuZ3RoIChtbSkiLAogICAgICAgY29sb3VyID0gIlNwZWNpZXMiKSAgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IHNwZWNpZXNfY29scykgKyAKICB0aGVtZV9tYXR0KCkgKyAKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAicmlnaHQiKQoKd3RfdGVtcCA9IGdncGxvdChmdWxsX2RhdGEsIGFlcyh4ID0gY29sbGVjdGlvbl90ZW1wLCB5ID0gd2FybWluZ190b2wsIGNvbG91ciA9IHNwX25hbWUpKSArIAogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIGxpbmV3aWR0aCA9IDMpICsKICBnZW9tX3BvaW50KHNpemUgPSAzKSArIAogIGxhYnMoeCA9ICJDb2xsZWN0aW9uIFRlbXBlcmF0dXJlICjCsEMpIiwgCiAgICAgICB5ID0gIldhcm1pbmcgVG9sZXJhbmNlICjCsEMpIiwKICAgICAgIGNvbG91ciA9ICJTcGVjaWVzIikgICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBzcGVjaWVzX2NvbHMpICsgCiAgdGhlbWVfbWF0dCgpICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikKCmVnZ3NfdGVtcCA9IGdncGxvdChmdWxsX2RhdGEsIGFlcyh4ID0gY29sbGVjdGlvbl90ZW1wLCB5ID0gZmVjdW5kaXR5LCBjb2xvdXIgPSBzcF9uYW1lKSkgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBsaW5ld2lkdGggPSAzKSArCiAgZ2VvbV9wb2ludChzaXplID0gMykgKyAKICBsYWJzKHggPSAiQ29sbGVjdGlvbiBUZW1wZXJhdHVyZSAowrBDKSIsIAogICAgICAgeSA9ICJGZWN1bmRpdHkgKCMgRWdncykiLAogICAgICAgY29sb3VyID0gIlNwZWNpZXMiKSAgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IHNwZWNpZXNfY29scykgKyAKICB0aGVtZV9tYXR0KCkgKyAKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAicmlnaHQiKQoKZ2dhcnJhbmdlKGN0bWF4X3RlbXAsIHNpemVfdGVtcCwgd3RfdGVtcCwgZWdnc190ZW1wLCAKICAgICAgICAgIGNvbW1vbi5sZWdlbmQgPSBULCBsZWdlbmQgPSAicmlnaHQiKQpgYGAKCmBgYHtyIGN0bWF4LWNvbGwtdGVtcC1tb2RlbH0KIyBhZHVsdF9kYXRhID0gZnVsbF9kYXRhICU+JSAKIyAgIGZpbHRlcihzZXggPT0gImZlbWFsZSIpCm1vZGVsX2RhdGEgPSBmdWxsX2RhdGEgJT4lICAKICBkcm9wX25hKHNpemUsIGN0bWF4KQoKY3RtYXhfdGVtcC5tb2RlbCA9IGxtKGRhdGEgPSBtb2RlbF9kYXRhLCBjdG1heCB+IGNvbGxlY3Rpb25fdGVtcCAqIHNwX25hbWUgKyBzZXgpCnNpemVfdGVtcC5tb2RlbCA9IGxtKGRhdGEgPSBtb2RlbF9kYXRhLCBzaXplIH4gY29sbGVjdGlvbl90ZW1wICogc3BfbmFtZSArIHNleCkKCmtuaXRyOjprYWJsZShjYXI6OkFub3ZhKGN0bWF4X3RlbXAubW9kZWwpKQoKY3RtYXhfcmVzaWRzID0gY2JpbmQobW9kZWxfZGF0YSwgInJlc2lkcyIgPSBjdG1heF90ZW1wLm1vZGVsJHJlc2lkdWFscywgInNpemVfcmVzaWRzIiA9IHNpemVfdGVtcC5tb2RlbCRyZXNpZHVhbHMpCmBgYAoKYGBge3IgY3RtYXgtdGltZS1pbi1sYWIsIGZpZy53aWR0aD0xNSwgZmlnLmhlaWdodD0xMH0KZ2dwbG90KGN0bWF4X3Jlc2lkcywgYWVzKHggPSBkYXlzX2luX2xhYiwgeSA9IHJlc2lkcywgY29sb3VyID0gc3BfbmFtZSkpICsgCiAgZmFjZXRfd3JhcChzcF9uYW1lfi4pICsgCiAgZ2VvbV9wb2ludChzaXplID0gNCwgYWxwaGEgPSAwLjUpICsgCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgc2UgPSBGLCBsaW5ld2lkdGggPSAyKSArIAogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBjKDA6NSkpICsgCiAgbGFicyh4ID0gIkRheXMgaW4gbGFiIiwgCiAgICAgICB5ID0gIkNUbWF4IFJlc2lkdWFscyIpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBzcGVjaWVzX2NvbHMpICsgCiAgdGhlbWVfbWF0dF9mYWNldHMoKSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKYGBgCgpHaXZlbiB0aGUgbG9uZyBnZW5lcmF0aW9uIHRpbWVzIG9mIHRoZXNlIGNvcGVwb2RzLCBkZWNyZWFzZXMgaW4gdHJhaXQgdmFyaWFuY2UgbWF5IGluZGljYXRlIHNlbGVjdGlvbiBvdmVyIHRoZSBzZWFzb25hbCBjeWNsZS4gU2hvd24gYmVsb3cgYXJlIHRoZSB2YXJpYW5jZSBpbiBvYnNlcnZlZCBDVG1heCBhbmQgc2l6ZSwgcGxvdHRlZCBhZ2FpbnN0IGNvbGxlY3Rpb24gZGF0ZS4gVmFyaWFuY2UgZGVjcmVhc2VzIGluICpTa2lzdG9kaWFwdG9tdXMqLCBidXQgdGhpcyBwYXR0ZXJuIGlzIGRyaXZlbiBieSBhIHNpbmdsZSBjb2xsZWN0aW9uIHdpdGggaGlnaCB2YXJpYW5jZSBlYXJseSBpbiB0aGUgeWVhci4gU2l6ZSB2YXJpYW5jZSBpbmNyZWFzZXMgc2xpZ2h0bHkgaW4gKlNraXN0b2RpYXB0b211cyouIFZhcmlhbmNlIGluIGJvdGggQ1RtYXggYW5kIHNpemUgaXMgZmFpcmx5IGNvbnN0YW50IGluICpMZXB0b2RpYXB0b211cyBtaW51dHVzKiwgdGhlIG9ubHkgb3RoZXIgc3BlY2llcyBjb2xsZWN0ZWQgYWNyb3NzIHRoZSBlbnRpcmUgc2V0IG9mIHNhbXBsZXMgdGh1cyBmYXIuIAoKYGBge3IgdHJhaXQtdmFyaWFuY2UtY29sbC10ZW1wfQpnZ3Bsb3QoZHJvcF9uYShhZHVsdF9zdW1tYXJpZXMsIGN0bWF4X3ZhciksIGFlcyh4ID0gYXMuRGF0ZShjb2xsZWN0aW9uX2RhdGUpLCB5ID0gY3RtYXhfdmFyLCBjb2xvdXIgPSBzcF9uYW1lKSkgKyAKICBmYWNldF93cmFwKHNwX25hbWV+Liwgc2NhbGVzID0gImZyZWVfeSIpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMikgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBzZSA9IEYpICsgCiAgbGFicyh4ID0gIkNvbGxlY3Rpb24gVGVtcC4gKMKwQykiLCAKICAgICAgIHkgPSAiQ1RtYXggVmFyaWFuY2UiKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIHRoZW1lX21hdHRfZmFjZXRzKCkgKyAKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIpCgpnZ3Bsb3QoZHJvcF9uYShhZHVsdF9zdW1tYXJpZXMsIHNpemVfdmFyKSwgYWVzKHggPSBhcy5EYXRlKGNvbGxlY3Rpb25fZGF0ZSksIHkgPSBzaXplX3ZhciwgY29sb3VyID0gc3BfbmFtZSkpICsgCiAgZmFjZXRfd3JhcChzcF9uYW1lfi4pICsgCiAgZ2VvbV9wb2ludChzaXplID0gMikgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBzZSA9IEYpICsgCiAgbGFicyh4ID0gIkNvbGxlY3Rpb24gVGVtcC4gKMKwQykiLCAKICAgICAgIHkgPSAiU2l6ZSBWYXJpYW5jZSIpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBzcGVjaWVzX2NvbHMpICsgCiAgdGhlbWVfbWF0dF9mYWNldHMoKSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKYGBgCgoKIyMgU2V4IGFuZCBzdGFnZSB2YXJpYXRpb24gaW4gdGhlcm1hbCBsaW1pdHMgClByZXZpb3VzIHNlY3Rpb25zIGhhdmUgZ2VuZXJhbGx5IGx1bXBlZCBqdXZlbmlsZSwgZmVtYWxlLCBhbmQgbWFsZSBpbmRpdmlkdWFscyB0b2dldGhlci4gVGhlcmUgbWF5IGJlIGltcG9ydGFudCBzdGFnZS0gb3Igc2V4LXNwZWNpZmljIGRpZmZlcmVuY2VzIGluIENUbWF4IHRob3VnaC4gRm9yIHNldmVyYWwgc3BlY2llcywgd2UgaGF2ZSBtZWFzdXJlbWVudHMgZm9yIGluZGl2aWR1YWxzIGluIGRpZmZlcmVudCBzdGFnZXMgb3Igb2YgZGlmZmVyZW50IHNleGVzLiAKCmBgYHtyIHNleC1zdGFnZS10YWJsZX0Kc2V4X3NhbXBsZV9zaXplcyA9IGN0bWF4X3Jlc2lkcyAlPiUgIAogIGdyb3VwX2J5KHNwX25hbWUsIHNleCkgJT4lICAKICBzdW1tYXJpc2UobnVtID0gbigpKSAlPiUgIAogIHBpdm90X3dpZGVyKGlkX2NvbHMgPSBzcF9uYW1lLAogICAgICAgICAgICAgIG5hbWVzX2Zyb20gPSBzZXgsIAogICAgICAgICAgICAgIHZhbHVlc19mcm9tID0gbnVtLAogICAgICAgICAgICAgIHZhbHVlc19maWxsID0gMCkgJT4lIAogIHNlbGVjdCgiU3BlY2llcyIgPSBzcF9uYW1lLCAiSnV2ZW5pbGUiID0ganV2ZW5pbGUsICJGZW1hbGUiID0gZmVtYWxlLCAiTWFsZSIgPSBtYWxlKQoKa25pdHI6OmthYmxlKHNleF9zYW1wbGVfc2l6ZXMsIGFsaWduID0gImMiKQpgYGAKClRoZSBmZW1hbGUtbWFsZSBhbmQgZmVtYWxlLWp1dmVuaWxlIGNvbXBhcmlzb25zIHNob3cgdGhhdCB0aGVyZSBhcmUgZ2VuZXJhbGx5IG5vIGRpZmZlcmVuY2VzIGluIHRoZXJtYWwgbGltaXRzIGJldHdlZW4gdGhlc2UgZ3JvdXBzLiAKCmBgYHtyIGN0bWF4LXNleCwgZmlnLndpZHRoPTcsIGZpZy5oZWlnaHQ9N30KY3RtYXhfcmVzaWRzICU+JSAKICBmaWx0ZXIoc3BfbmFtZSAlaW4lIGZpbHRlcihzZXhfc2FtcGxlX3NpemVzLCBNYWxlID4gMCwgRmVtYWxlID4gMCkkU3BlY2llcyAmIAogICAgICAgICAgIHNleCAhPSAianV2ZW5pbGUiKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gc2V4LCB5ID0gcmVzaWRzLCBjb2xvdXIgPSBzcF9uYW1lLCBncm91cCA9IHNwX25hbWUpKSArIAogIGZhY2V0X3dyYXAoc3BfbmFtZX4uLCBuY29sID0gMikgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBzZSA9IEYsIGxpbmV3aWR0aCA9IDEpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMywKICAgICAgICAgICAgIGFscGhhID0gMC41LAogICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9qaXR0ZXIoaGVpZ2h0ID0gMCwgd2lkdGggPSAwLjA1KSkgKyAgCiAgbGFicyh4ID0gIlNleCIsIAogICAgICAgeSA9ICJDVG1heCBSZXNpZHVhbHMiKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDE4KSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwgCiAgICAgICAgcGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSkKYGBgCgpgYGB7ciBjdG1heC1zdGFnZSwgZmlnLndpZHRoPTMsIGZpZy5oZWlnaHQ9Nn0KY3RtYXhfcmVzaWRzICU+JSAKICBmaWx0ZXIoc3BfbmFtZSAlaW4lIGZpbHRlcihzZXhfc2FtcGxlX3NpemVzLCBKdXZlbmlsZSA+IDAgJiBGZW1hbGUgPiAwKSRTcGVjaWVzICYgCiAgICAgICAgICAgc2V4ICE9ICJtYWxlIikgJT4lIAogIGdncGxvdChhZXMoeCA9IHNleCwgeSA9IHJlc2lkcywgY29sb3VyID0gc3BfbmFtZSwgZ3JvdXAgPSBzcF9uYW1lKSkgKyAKICBmYWNldF93cmFwKHNwX25hbWV+LiwgbmNvbCA9IDEpICsgCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgc2UgPSBGLCBsaW5ld2lkdGggPSAxKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDMsCiAgICAgICAgICAgICBhbHBoYSA9IDAuNSwKICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25faml0dGVyKGhlaWdodCA9IDAsIHdpZHRoID0gMC4wNSkpICsgIAogIGxhYnMoeCA9ICJTZXgiLCAKICAgICAgIHkgPSAiQ1RtYXggKMKwQykiKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDE4KSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwgCiAgICAgICAgcGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSkKYGBgCgojIyBUcmFpdCBDb3JyZWxhdGlvbnMgCgpgYGB7ciBjdG1heC1zaXplLCBmaWcud2lkdGg9MTAsIGZpZy5oZWlnaHQ9N30KCmZ1bGxfZGF0YSAlPiUgCiAgI2ZpbHRlcihzZXggPT0gImZlbWFsZSIpICU+JSAgCiAgZ2dwbG90KCBhZXMoeCA9IHNpemUsIHkgPSBjdG1heCwgY29sb3VyID0gc3BfbmFtZSkpICsgCiAgZ2VvbV9zbW9vdGgoZGF0YSA9IGZ1bGxfZGF0YSwgCiAgICAgICAgICAgICAgYWVzKHggPSBzaXplLCB5ID0gY3RtYXgpLAogICAgICAgICAgICAgIG1ldGhvZCA9ICJsbSIsIAogICAgICAgICAgICAgIGNvbG91ciA9ImJsYWNrIiwgCiAgICAgICAgICAgICAgbGluZXdpZHRoID0gMi41KSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDIsIGFscGhhID0gMC40KSArIAogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIHNlID0gRiwgbGluZXdpZHRoID0gMikgKyAKICBsYWJzKHggPSAiTGVuZ3RoIChtbSkiLCAKICAgICAgIHkgPSAiQ1RtYXggKMKwQykiLAogICAgICAgY29sb3VyID0gIlNwZWNpZXMiKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIHRoZW1lX21hdHQoKSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJyaWdodCIpCmBgYAoKYGBge3IgY3RtYXhyZXNpZHMtc2l6ZSwgZmlnLndpZHRoPTEwLCBmaWcuaGVpZ2h0PTcsIGluY2x1ZGUgPSBGfQpjdG1heF9yZXNpZHMgJT4lIAogIGZpbHRlcihzZXggPT0gImZlbWFsZSIpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBzaXplX3Jlc2lkcywgeSA9IHJlc2lkcywgY29sb3VyID0gc3BfbmFtZSkpICsgCiAgZ2VvbV9zbW9vdGgoZGF0YSA9IGN0bWF4X3Jlc2lkcywgCiAgICAgICAgICAgICAgYWVzKHggPSBzaXplX3Jlc2lkcywgeSA9IHJlc2lkcyksCiAgICAgICAgICAgICAgbWV0aG9kID0gImxtIiwgCiAgICAgICAgICAgICAgY29sb3VyID0iYmxhY2siLCAKICAgICAgICAgICAgICBsaW5ld2lkdGggPSAyLjUpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMiwgYWxwaGEgPSAwLjQpICsgCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgc2UgPSBGLCBsaW5ld2lkdGggPSAyKSArIAogIGxhYnMoeCA9ICJMZW5ndGggKG1tKSIsIAogICAgICAgeSA9ICJDVG1heCAowrBDKSIpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBzcGVjaWVzX2NvbHMpICsgCiAgdGhlbWVfbWF0dCgpICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikKYGBgCgoKYGBge3IgZmVjdW5kaXR5LXNpemUsIGZpZy53aWR0aD0xMCwgZmlnLmhlaWdodD03fQpnZ3Bsb3QoY3RtYXhfcmVzaWRzLCBhZXMoeCA9IHNpemUsIHkgPSBmZWN1bmRpdHksIGNvbG91ciA9IHNwX25hbWUpKSArIAogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIHNlID0gRiwgbGluZXdpZHRoID0gMikgKyAKICBnZW9tX3BvaW50KHNpemUgPSAyLCBhbHBoYSA9IDAuNSkgKyAKICBsYWJzKHggPSAiUHJvc29tZSBsZW5ndGggKG1tKSIsIAogICAgICAgeSA9ICJGZWN1bmRpdHkgKCMgRWdncykiLAogICAgICAgY29sb3VyID0gIlNwZWNpZXMiKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gc3BlY2llc19jb2xzKSArIAogIHRoZW1lX21hdHQoKSArIAogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJyaWdodCIpCmBgYAoKYGBge3IsIGN0bWF4LWZlY3VuZGl0eSwgZmlnLndpZHRoPTEwLCBmaWcuaGVpZ2h0PTd9CmdncGxvdChjdG1heF9yZXNpZHMsIGFlcyh5ID0gcmVzaWRzLCB4ID0gZmVjdW5kaXR5LCBjb2xvdXIgPSBzcF9uYW1lKSkgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBzZSA9IEYsIGxpbmV3aWR0aCA9IDIpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMiwgYWxwaGEgPSAwLjUpICsgCiAgbGFicyh5ID0gIkNUbWF4ICjCsEMpIiwgCiAgICAgICB4ID0gIkZlY3VuZGl0eSAoIyBFZ2dzKSIpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBzcGVjaWVzX2NvbHMpICsgCiAgdGhlbWVfbWF0dCgpICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikKYGBgCgpgYGB7cn0KaWYocHJlZGljdF92dWxuID09IEYpewogIGtuaXRyOjprbml0X2V4aXQoKQp9CmBgYAoKCiMjIFByZWRpY3RpbmcgVnVsbmVyYWJpbGl0eSAKVXNpbmcgdGhlIG9ic2VydmVkIHRoZXJtYWwgbGltaXQgZGF0YSwgd2UgY2FuIHByb2R1Y2UgYSBoaW5kY2FzdCBvZiB0aGVybWFsIHN0cmVzcyBmb3IgTGFrZSBDaGFtcGxhaW4gY29wZXBvZHMuIEZvciB0aGVzZSBpbml0aWFsIGFzc2F5cywgd2Ugd2lsbCBkZWZpbmUgdGhlcm1hbCBzdHJlc3MgYXMgYW55IHRpbWUgd2hlbiBtYXhpbXVtIGRhaWx5IHdhdGVyIHRlbXBlcmF0dXJlIGlzIHdpdGhpbiAywrBDIG9mIGNvcGVwb2QgQ1RtYXggb3IgaGlnaGVyLiBXZSB3aWxsIHVzZSB0aHJlZSBkaWZmZXJlbnQgc2NlbmFyaW9zOiAxKSB0aGUgYXZlcmFnZSBDVG1heCBmb3IgZWFjaCBzcGVjaWVzLCAyKSBDVG1heCBwcmVkaWN0ZWQgdXNpbmcgY29sbGVjdGlvbiB0ZW1wZXJhdHVyZXMsIGFuZCAzKSBmb3Igc3BlY2llcyB0aGF0IGhhdmUgc3VmZmljaWVudCBkYXRhLCBDVG1heCBwcmVkaWN0ZWQgdXNpbmcgd2hpY2hldmVyIGVudmlyb25tZW50YWwgZmFjdG9yIGlzIHRoZSBzdHJvbmdlc3QgY2FuZGlkYXRlIGZvciBkcml2aW5nIGFjY2xpbWF0aW9uLiBJbiBhbGwgY2FzZXMsIGRhdGEgaXMgZmlsdGVyZWQgdG8ganVzdCB0aGVybWFsIGxpbWl0cyBvZiBhZHVsdCBmZW1hbGVzLiAKCiMjIyBTY2VuYXJpbyAxCmBgYHtyfQptZWFuX2N0bWF4ID0gZnVsbF9kYXRhICU+JSAKICBmaWx0ZXIoc2V4ID09ICJmZW1hbGUiKSAlPiUgIAogIGdyb3VwX2J5KHNwX25hbWUpICU+JSAKICBzdW1tYXJpemUoIm1lYW5fY3RtYXgiID0gbWVhbihjdG1heCkpICU+JSAKICBhcnJhbmdlKG1lYW5fY3RtYXgpCgprbml0cjo6a2FibGUobWVhbl9jdG1heCkKYGBgCgpgYGB7cn0KIyAjIENvbnN0cnVjdHMgdGhlIFVSTCBmb3IgdGhlIGZ1bGwgdGVtcGVyYXR1cmUgZGF0YSBzZXQ7IFJVTiBUSElTIE9OQ0UKIyBoaW5kX3VybCA9IGNvbnN0cnVjdE5XSVNVUkwoc2l0ZU51bWJlcnMgPSBzaXRlTnVtYmVyLCBwYXJhbWV0ZXJDZCA9IHBhcmFtZXRlckNkLCBzZXJ2aWNlID0gInV2IikKIyAKIyBoaW5kX3RlbXBfZGF0YSA9IGltcG9ydFdhdGVyTUwxKGhpbmRfdXJsLCBhc0RhdGVUaW1lID0gVCkgJT4lCiMgICBtdXRhdGUoImRhdGUiID0gYXMuRGF0ZShkYXRlVGltZSkpICU+JQojICAgc2VsZWN0KGRhdGUsICJ0ZW1wIiA9IFhfMDAwMTBfMDAwMDApCiMgCiMgd3JpdGUudGFibGUoeCA9IGhpbmRfdGVtcF9kYXRhLCBmaWxlID0gImhpbmRjYXN0X3RlbXBzLmNzdiIsIHJvdy5uYW1lcyA9IEYsIHNlcCA9ICIsIikKYGBgCgpgYGB7cn0KIyBnZ3Bsb3QoaGluZF90ZW1wX2RhdGEsIGFlcyh4ID0gZGF0ZSwgeSA9IHRlbXApKSArIAojICAgZ2VvbV9saW5lKGxpbmV3aWR0aCA9IDAuMSkgKyAKIyAgIGxhYnMoeCA9ICJEYXRlIiwgCiMgICAgICAgIHkgPSAiV2F0ZXIgVGVtcGVyYXR1cmUgKMKwQykiKSArCiMgICB0aGVtZV9tYXR0KCkKYGBgCgpJbiB0aGUgc2ltcGxlc3Qgc2NlbmFyaW8sIHNwZWNpZXMgdGhlcm1hbCBsaW1pdHMgYXJlIHN0YXRpYyB0aHJvdWdoIHRpbWUsIHJlcHJlc2VudGVkIGJ5IHRoZSBhdmVyYWdlIENUbWF4IG9mIGFkdWx0IGZlbWFsZSBjb3BlcG9kcy4gSW4gdGhpcyBzY2VuYXJpbywgb25seSB0aHJlZSBvZiB0aGUgc2V2ZW4gb2JzZXJ2ZWQgc3BlY2llcyBhcmUgZXhwb3NlZCB0byB0aGVybWFsIHN0cmVzcyAodGVtcGVyYXR1cmVzIHdpdGhpbiA1wrBDIG9mIENUbWF4KS4gVGVtcGVyYXR1cmVzIGFwcHJvYWNoZWQgdGhlIHRoZXJtYWwgbGltaXQgb2YgKkxlcHRvZGlhcHRvbXVzIHNpY2lsaXMqIG9uIGEgaGFuZGZ1bCBvZiBkYXlzLiBCeSBjb250cmFzdCwgKlNlbmVjZWxsYSBjYWxhbm9pZGVzKiBhbmQgKkxpbW5vY2FsYW51cyBtYWNydXJ1cyogd2VyZSBib3RoIGV4cG9zZWQgdG8gc3Vic3RhbnRpYWwgdGhlcm1hbCBzdHJlc3MgdGhyb3VnaG91dCBhIGxhcmdlIHBvcnRpb24gb2YgdGhlIHllYXIsIGxpa2VseSBleHBsYWluaW5nIHdoeSB0aGVzZSBzcGVjaWVzIGFyZSBhYnNlbnQgZnJvbSB0aGUgY29tbXVuaXR5IGZvciB0aGUgc3VtbWVyIGFuZCBmYWxsIHBlcmlvZHMuIAoKYGBge3IgZmlnLndpZHRoPTEwLCBmaWcuaGVpZ2h0PTV9CmhpbmQxX2RhdGEgPSBoaW5kX3RlbXBfZGF0YSAlPiUgCiAgZ3JvdXBfYnkoZGF0ZSkgJT4lIAogIHN1bW1hcml6ZSgiZGFpbHlfbWF4IiA9IG1heCh0ZW1wKSwKICAgICAgICAgICAgImRhaWx5X21lYW4iID0gbWVhbih0ZW1wKSwpICU+JSAKICBiaW5kX2NvbHMocGl2b3Rfd2lkZXIobWVhbl9jdG1heCwgbmFtZXNfZnJvbSA9IHNwX25hbWUsIHZhbHVlc19mcm9tID0gbWVhbl9jdG1heCkpICU+JSAgCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKC1kYXRlLCAtZGFpbHlfbWF4LCAtZGFpbHlfbWVhbiksCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gInNwZWNpZXMiLCAKICAgICAgICAgICAgICAgdmFsdWVzX3RvID0gIm1lYW5fY3RtYXgiKSAlPiUgIAogIG11dGF0ZShsaW1fZGlmZiA9IG1lYW5fY3RtYXggLSBkYWlseV9tYXgpICU+JSAgCiAgbXV0YXRlKGRveSA9IHlkYXkoZGF0ZSksCiAgICAgICAgICJtZXRob2QiID0gIk5vX2FjY2xpbWF0aW9uIikKCmhpbmRfZGFpbHlfdGVtcF9kYXRhID0gaGluZF90ZW1wX2RhdGEgJT4lCiAgdW5ncm91cCgpICU+JSAKICBncm91cF9ieShkYXRlKSAlPiUgCiAgc3VtbWFyaXNlKG1lYW5fdGVtcCA9IG1lYW4odGVtcCksCiAgICAgICAgICAgIG1lZF90ZW1wID0gbWVkaWFuKHRlbXApLAogICAgICAgICAgICB2YXJfdGVtcCA9IHZhcih0ZW1wKSwgCiAgICAgICAgICAgIG1pbl90ZW1wID0gbWluKHRlbXApLCAKICAgICAgICAgICAgbWF4X3RlbXAgPSBtYXgodGVtcCkpICU+JSAKICBtdXRhdGUoInJhbmdlX3RlbXAiID0gbWF4X3RlbXAgLSBtaW5fdGVtcCkKCiN0YWJsZShoaW5kMV9kYXRhJHNwZWNpZXMpCgpoaW5kMV9kYXRhICU+JSAKZmlsdGVyKGxpbV9kaWZmIDw9IDUpICU+JSAgCmdncGxvdChhZXMoeCA9IGRveSwgeSA9IGxpbV9kaWZmLCBjb2xvdXIgPSBzcGVjaWVzKSkgKwogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDApICsgCiAgICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSA1LCAKICAgICAgICAgICAgICAgY29sb3VyID0gImdyZXkiKSArIAogIGdlb21fcG9pbnQoYWxwaGEgPSAwLjUpICsKICBnZW9tX3Ntb290aCgpICsgCiAgbGFicyh4ID0gIkRheSBvZiBZZWFyIiwgCiAgICAgICB5ID0gIlByZWRpY3RlZCBXYXJtaW5nIFRvbGVyYW5jZSBcbijCsEMgQWJvdmUgRGFpbHkgTWF4KSIpICsgCiAgdGhlbWVfbWF0dCgpICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikKYGBgCgojIyMgU2NlbmFyaW8gMgpJbiB0aGUgc2Vjb25kIHNjZW5hcmlvLCB0aGVybWFsIGxpbWl0cyB2YXJ5IHdpdGhpbiBhbmQgYmV0d2VlbiBzcGVjaWVzLiBBIHNpbXBsZSBtb2RlbCBpcyB1c2VkIHRvIHByZWRpY3Qgc3BlY2llcyB0aGVybWFsIGxpbWl0cyBiYXNlZCBvbiBtZWFuIGRhaWx5IHRlbXBlcmF0dXJlIChDVG1heCBhcyBhIGZ1bmN0aW9uIG9mIHNwZWNpZXMgYW5kIGNvbGxlY3Rpb24gdGVtcGVyYXR1cmUsIGJ1dCB3aXRob3V0IHRoZSBpbnRlcmFjdGlvbiBiZXR3ZWVuIHRoZXNlIHR3byBmYWN0b3JzKS4gVGhlc2UgcHJlZGljdGVkIHRoZXJtYWwgbGltaXRzIGFyZSB0aGVuIGNvbXBhcmVkIGFnYWluc3QgdGhlIG1heGltdW0gZGFpbHkgdGVtcGVyYXR1cmUgdG8gZXN0aW1hdGUgdGhlcm1hbCBzdHJlc3MsIGFzIGluIFNjZW5hcmlvIDEuIEluY2x1ZGluZyB0aGlzIHNpbXBsZSBmb3JtIG9mIGFjY2xpbWF0aW9uIGluIHRoZSBtb2RlbCByZWR1Y2VkIHRoZSBkZWdyZWUgb2YgdGhlcm1hbCBzdHJlc3MgZm9yIGVhY2ggc3BlY2llcywgZWxpbWluYXRpbmcgaXQgZW50aXJlbHkgZm9yICpMZXB0b2RpYXB0b211cyBzaWNpbGlzKi4gTm90ZSB0aGF0IHRoZSBtYWduaXR1ZGUgb2YgdGhlIHByZWRpY3RlZCBzdHJlc3MgaXMgIGxvdyBlbm91Z2ggdGhhdCByZW1vdmluZyB0aGUgNcKwQyBidWZmZXIgYXJvdW5kIHRoZSBwcmVkaWN0ZWQgdGhlcm1hbCBsaW1pdHMgd291bGQgYWN0dWFsbHkgbGltaXQgcHJlZGljdGVkIHRoZXJtYWwgc3RyZXNzIHRvIGp1c3QgYSBmZXcgZGF5cyBmb3IgKlNlbmVjZWxsYSBjYWxhbm9pZGVzKi4gCgpgYGB7ciBmaWcuaGVpZ2h0PTUsIGZpZy53aWR0aD0xMH0KaGluZGNhc3RfbW9kZWwxID0gbG0oZGF0YSA9IGZpbHRlcihmdWxsX2RhdGEsIHNleCA9PSAiZmVtYWxlIiksCiAgICAgICAgICAgICAgICAgICAgIGN0bWF4IH4gY29sbGVjdGlvbl90ZW1wICsgc3BfbmFtZSkKCmhpbmQyX2RhdGEgPSBoaW5kX3RlbXBfZGF0YSAlPiUgCiAgZ3JvdXBfYnkoZGF0ZSkgJT4lIAogIHN1bW1hcml6ZSgiY29sbGVjdGlvbl90ZW1wIiA9IG1lYW4odGVtcCksCiAgICAgICAgICAgICJkYWlseV9tYXgiID0gbWF4KHRlbXApKSAlPiUgCiAgYmluZF9jb2xzKAogICAgcGl2b3Rfd2lkZXIobWVhbl9jdG1heCwgCiAgICAgICAgICAgICAgICBuYW1lc19mcm9tID0gc3BfbmFtZSwgCiAgICAgICAgICAgICAgICB2YWx1ZXNfZnJvbSA9IG1lYW5fY3RtYXgpKSAlPiUgCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKC1kYXRlLCAtZGFpbHlfbWF4LCAtY29sbGVjdGlvbl90ZW1wKSwKICAgICAgICAgICAgICAgbmFtZXNfdG8gPSAic3BfbmFtZSIsIAogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAibWVhbl9jdG1heCIpICU+JSAKICBzZWxlY3QoLW1lYW5fY3RtYXgpICU+JSAKICBtdXRhdGUoInByZWRfY3RtYXgiID0gcHJlZGljdC5sbSAoaGluZGNhc3RfbW9kZWwxLCBuZXdkYXRhID0gLikpICU+JSAKICBzZWxlY3QoZGF0ZSwgImRhaWx5X21lYW4iID0gY29sbGVjdGlvbl90ZW1wLCBkYWlseV9tYXgsICJzcGVjaWVzIiA9IHNwX25hbWUsIHByZWRfY3RtYXgpICU+JSAKICBtdXRhdGUobGltX2RpZmYgPSBwcmVkX2N0bWF4IC0gZGFpbHlfbWF4KSAlPiUgCiAgI2ZpbHRlcihsaW1fZGlmZiA8PSAwKSAlPiUgIAogIG11dGF0ZShkb3kgPSB5ZGF5KGRhdGUpLAogICAgICAgICAibWV0aG9kIiA9ICJDb25zdGFudF9hY2NsaW1hdGlvbiIpCgojIGdncGxvdChoaW5kMl9kYXRhLCBhZXMoeCA9IGRhaWx5X21lYW4sIHkgPSBwcmVkX2N0bWF4LCBjb2xvdXIgPSBzcGVjaWVzKSkgKwojICAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIikgCgojIHRhYmxlKGhpbmQyX2RhdGEkc3BlY2llcykKaGluZDJfZGF0YSAlPiUgIAogIGZpbHRlcihsaW1fZGlmZiA8PSA1KSAlPiUgIAogIGdncGxvdChhZXMoeCA9IGRveSwgeSA9IGxpbV9kaWZmLCBjb2xvdXIgPSBzcGVjaWVzKSkgKwogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDApICsgCiAgICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSA1LCAKICAgICAgICAgICAgICAgY29sb3VyID0gImdyZXkiKSArIAogIGdlb21fcG9pbnQoYWxwaGEgPSAwLjUpICsKICBnZW9tX3Ntb290aCgpICsgCiAgbGFicyh4ID0gIkRheSBvZiBZZWFyIiwgCiAgICAgICB5ID0gIlByZWRpY3RlZCBXYXJtaW5nIFRvbGVyYW5jZSBcbijCsEMgQWJvdmUgRGFpbHkgTWF4KSIpICsgCiAgdGhlbWVfbWF0dCgpICsgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikKYGBgCgojIyMgU2NlbmFyaW8gMwpUaGUgZmluYWwgc2NlbmFyaW8gYWxsb3dzIHRoZSBlbnZpcm9ubWVudGFsIHZhcmlhYmxlIHVzZWQgdG8gcHJlZGljdCBDVG1heCB0byB2YXJ5IGJldHdlZW4gc3BlY2llcy4gRm9yIHNwZWNpZXMgb2JzZXJ2ZWQgaW4gZmV3ZXIgdGhhbiA1IGNvbGxlY3Rpb25zLCB3ZSB1c2UgdGhlIHNhbWUgYXBwcm9hY2ggYXMgaW4gU2NlbmFyaW8gMi4gRm9yIHNwZWNpZXMgb2JzZXJ2ZWQgaW4gbW9yZSB0aGFuIDUgY29sbGVjdGlvbnMsIGhvd2V2ZXIsIHRoZSBmYWN0b3Igd2l0aCB0aGUgc3Ryb25nZXN0IGNvcnJlbGF0aW9uIHdpdGggQ1RtYXggaXMgdXNlZCB0byBwcmVkaWN0IHRoZXJtYWwgbGltaXRzLiBUaGVzZSBmYWN0b3JzIGFyZSBpbmNsdWRlZCBiZWxvdy4KCmBgYHtyfQpoaW5kX3ByZWRzID0gY29ycl92YWxzICU+JSAgCiAgZmlsdGVyKHNpZyA9PSAiU2lnLiIpICU+JSAKICBkcm9wX25hKGNvcnJlbGF0aW9uKSAlPiUgCiAgZ3JvdXBfYnkoc3BfbmFtZSkgJT4lCiAgYXJyYW5nZShkZXNjKGNvcnJlbGF0aW9uKSkgJT4lIAogIHNsaWNlX2hlYWQobiA9IDEpICU+JSAKICBzZWxlY3QoIlNwZWNpZXMiID0gc3BfbmFtZSwgIlByZWRpY3RvciIgPSBwcmVkaWN0b3IsICJDb3JyZWxhdGlvbiIgPSBjb3JyZWxhdGlvbiwgIlAtVmFsdWUiID0gcC52YWx1ZSkKCmtuaXRyOjprYWJsZShoaW5kX3ByZWRzLCBhbGlnbiA9ICJjIikKYGBgCgpgYGB7cn0KaGluZDNfZGF0YSA9IGhpbmQyX2RhdGEgJT4lICMgQ29udGFpbnMgZGF0YSBmb3Igc3BlY2llcyB0aGF0IHdvbid0IGNoYW5nZSBmcm9tIHNjZW5hcmlvIDIKICBmaWx0ZXIoIShzcGVjaWVzICVpbiUgY29ycl92YWxzJHNwX25hbWUpKQoKd29yZHNfdG9fbnVtYmVycyA8LSBmdW5jdGlvbihzKSB7CiAgcyA8LSBzdHJpbmdyOjpzdHJfdG9fbG93ZXIocykKICBmb3IgKGkgaW4gMDo1NikKICAgIHMgPC0gc3RyaW5ncjo6c3RyX3JlcGxhY2VfYWxsKHMsIHdvcmRzKGkpLCBhcy5jaGFyYWN0ZXIoaSkpCiAgcwp9CgpwcmVkc190b19wdWxsID0gaGluZF9wcmVkcyAlPiUgIAogIHNlbGVjdChTcGVjaWVzLCBQcmVkaWN0b3IpICU+JSAKICBtdXRhdGUobl9kYXlzID0gc3RyX3NwbGl0X2ZpeGVkKFByZWRpY3RvciwgcGF0dGVybiA9ICJfIiwgbiA9IDIpWywxXSwKICAgICAgICAgcGFyYW1ldGVyID0gc3RyX3NwbGl0X2ZpeGVkKFByZWRpY3RvciwgcGF0dGVybiA9ICJfZGF5XyIsIG4gPSAyKVssMl0pCgpmb3IoaSBpbiAxOmxlbmd0aChwcmVkc190b19wdWxsJFNwZWNpZXMpKXsKICAKICBpZihwcmVkc190b19wdWxsJG5fZGF5c1tpXSA9PSAicHJpb3IiKXsgI1RoZSBwcmlvciBkYXkgdGVtcGVyYXR1cmUgbWV0cmljcyBzaG91bGQgYmUgdXNlZAogICAgZHVyYXRpb24gPSBOQQogICAgCiAgICBwcmVkaWN0b3JzID0gaGluZF9kYWlseV90ZW1wX2RhdGEgJT4lIAogICAgICBtdXRhdGUoZGF0ZSA9IGRhdGUgKyAxKSAKICAgIAogICAgcGFyYW1ldGVyID0gc3RyX3NwbGl0X2ZpeGVkKHByZWRzX3RvX3B1bGwkcGFyYW1ldGVyW2ldLCBwYXR0ZXJuID0gIl90ZW1wIiwgbiA9IDIpWzFdCiAgICAKICAgIG1vZGVsX2RhdGEgPSBmdWxsX2RhdGEgJT4lCiAgICAgIGZpbHRlcihzcF9uYW1lICVpbiUgcHJlZHNfdG9fcHVsbCRTcGVjaWVzW2ldKSAlPiUgCiAgICAgIGZpbHRlcihzZXggPT0gImZlbWFsZSIpICU+JSAKICAgICAgbXV0YXRlKGNvbGxlY3Rpb25fZGF0ZSA9IGFzX2RhdGUoY29sbGVjdGlvbl9kYXRlKSkgJT4lIAogICAgICBpbm5lcl9qb2luKHByZWRpY3RvcnMsIGpvaW5fYnkoY29sbGVjdGlvbl9kYXRlID09IGRhdGUpKSAlPiUgIAogICAgICBzZWxlY3QoY3RtYXgsIGNvbnRhaW5zKHBhcmFtZXRlcikpCiAgICAKICAgIGlmKGRpbShtb2RlbF9kYXRhKVsyXSA9PSAyKXsKICAgICAgaGluZC5tb2RlbCA9IGxtKGRhdGEgPSBtb2RlbF9kYXRhLCAKICAgICAgICAgICAgICAgICAgICAgIGN0bWF4IH4gLikKICAgICAgCiAgICAgIHNwX2RhdGEgPSBwcmVkaWN0b3JzICU+JSAKICAgICAgICBzZWxlY3QoZGF0ZSwgY29udGFpbnMocGFyYW1ldGVyKSkgJT4lIAogICAgICAgIG11dGF0ZShwcmVkX2N0bWF4ID0gcHJlZGljdChoaW5kLm1vZGVsLCBuZXdkYXRhID0gLikpICU+JSAgCiAgICAgICAgc2VsZWN0KGRhdGUsIHByZWRfY3RtYXgpICU+JSAKICAgICAgICBpbm5lcl9qb2luKGhpbmRfZGFpbHlfdGVtcF9kYXRhLCBieSA9IGMoImRhdGUiKSkgJT4lIAogICAgICAgIG11dGF0ZSgic3BlY2llcyIgPSBwcmVkc190b19wdWxsJFNwZWNpZXNbaV0sCiAgICAgICAgICAgICAgICJkb3kiID0geWRheShkYXRlKSwKICAgICAgICAgICAgICAgbGltX2RpZmYgPSBwcmVkX2N0bWF4IC0gbWF4X3RlbXApICU+JSAKICAgICAgICBzZWxlY3QoZGF0ZSwgZGFpbHlfbWVhbiA9IG1lYW5fdGVtcCwgZGFpbHlfbWF4ID0gbWF4X3RlbXAsIHNwZWNpZXMsIHByZWRfY3RtYXgsIGxpbV9kaWZmLCBkb3kpCiAgICAKICAgICAgICBoaW5kM19kYXRhID0gYmluZF9yb3dzKGhpbmQzX2RhdGEsIHNwX2RhdGEpCiAgICB9ZWxzZXsKICAgICAgcHJpbnQoIlRvbyBtYW55IGNvbHVtbnMgc2VsZWN0ZWQiKQogICAgfQogICAgCiAgICAKICB9ZWxzZXsKICAgIGR1cmF0aW9uID0gYXMubnVtZXJpYyh3b3Jkc190b19udW1iZXJzKHByZWRzX3RvX3B1bGwkbl9kYXlzW2ldKSkKICB9CiAgCiAgaWYocHJlZHNfdG9fcHVsbCRuX2RheXNbaV0gIT0gInByaW9yIiAmIGlzLm5hKGR1cmF0aW9uKSl7ICNEYWlseSB0ZW1wZXJhdHVyZXMgc2hvdWxkIGJlIHVzZWQsIGFzIGluIFNjZW5hcmlvIDIKICAgIHNwX2RhdGEgPSBoaW5kMl9kYXRhICU+JSAKICAgICAgZmlsdGVyKHNwZWNpZXMgPT0gcHJlZHNfdG9fcHVsbCRTcGVjaWVzW2ldKQogICAgCiAgICBoaW5kM19kYXRhID0gYmluZF9yb3dzKGhpbmQzX2RhdGEsIHNwX2RhdGEpCiAgfQogIAogIGlmKGlzLm51bWVyaWMoZHVyYXRpb24pKXsKICAgICNOZWl0aGVyIHRoZSBwcmlvciBkYXkgbm9yIGRheSBvZiBtZXRyaWNzIHNob3VsZCBiZSB1c2VkOyB1c2UgZHVyYXRpb24gYXMgbl9kYXlzCiAgICAKICAgIHByZWRpY3RvcnMgPSBnZXRfcHJlZGljdG9ycyhkYWlseV92YWx1ZXMgPSBoaW5kX2RhaWx5X3RlbXBfZGF0YSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmF3X3RlbXAgPSBoaW5kX3RlbXBfZGF0YSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbl9kYXlzID0gZHVyYXRpb24pCiAgICAKICAgIHBhcmFtZXRlciA9IHN0cl9zcGxpdF9maXhlZChwcmVkc190b19wdWxsJHBhcmFtZXRlcltpXSwgcGF0dGVybiA9ICJfdGVtcCIsIG4gPSAyKVsxXQogICAgCiAgICBtb2RlbF9kYXRhID0gZnVsbF9kYXRhICU+JQogICAgICBmaWx0ZXIoc3BfbmFtZSAlaW4lIHByZWRzX3RvX3B1bGwkU3BlY2llc1tpXSkgJT4lIAogICAgICBmaWx0ZXIoc2V4ID09ICJmZW1hbGUiKSAlPiUgCiAgICAgIG11dGF0ZShjb2xsZWN0aW9uX2RhdGUgPSBhc19kYXRlKGNvbGxlY3Rpb25fZGF0ZSkpICU+JSAKICAgICAgaW5uZXJfam9pbihwcmVkaWN0b3JzLCBqb2luX2J5KGNvbGxlY3Rpb25fZGF0ZSA9PSBkYXRlKSkgJT4lICAKICAgICAgc2VsZWN0KGN0bWF4LCBjb250YWlucyhwYXJhbWV0ZXIpKQogICAgCiAgICBpZihkaW0obW9kZWxfZGF0YSlbMl0gPT0gMil7CiAgICAgIGhpbmQubW9kZWwgPSBsbShkYXRhID0gbW9kZWxfZGF0YSwgCiAgICAgICAgICAgICAgICAgICAgICBjdG1heCB+IC4pCiAgICAgIAogICAgICBzcF9kYXRhID0gcHJlZGljdG9ycyAlPiUgCiAgICAgICAgc2VsZWN0KGRhdGUsIGNvbnRhaW5zKHBhcmFtZXRlcikpICU+JSAKICAgICAgICBtdXRhdGUocHJlZF9jdG1heCA9IHByZWRpY3QoaGluZC5tb2RlbCwgbmV3ZGF0YSA9IC4pKSAlPiUgIAogICAgICAgIHNlbGVjdChkYXRlLCBwcmVkX2N0bWF4KSAlPiUgCiAgICAgICAgaW5uZXJfam9pbihoaW5kX2RhaWx5X3RlbXBfZGF0YSwgYnkgPSBjKCJkYXRlIikpICU+JSAKICAgICAgICBtdXRhdGUoInNwZWNpZXMiID0gcHJlZHNfdG9fcHVsbCRTcGVjaWVzW2ldLAogICAgICAgICAgICAgICAiZG95IiA9IHlkYXkoZGF0ZSksCiAgICAgICAgICAgICAgIGxpbV9kaWZmID0gcHJlZF9jdG1heCAtIG1heF90ZW1wKSAlPiUgCiAgICAgICAgc2VsZWN0KGRhdGUsIGRhaWx5X21lYW4gPSBtZWFuX3RlbXAsIGRhaWx5X21heCA9IG1heF90ZW1wLCBzcGVjaWVzLCBwcmVkX2N0bWF4LCBsaW1fZGlmZiwgZG95KQogICAgCiAgICAgICAgaGluZDNfZGF0YSA9IGJpbmRfcm93cyhoaW5kM19kYXRhLCBzcF9kYXRhKQoKICAgIH1lbHNlewogICAgICBwcmludCgiVG9vIG1hbnkgY29sdW1ucyBzZWxlY3RlZCIpCiAgICB9CiAgICAKICB9Cn0KCmhpbmQzX2RhdGEgPSBoaW5kM19kYXRhICU+JSAKICBtdXRhdGUoIm1ldGhvZCIgPSAiVmFyaWFibGVfYWNjbGltYXRpb24iKQpgYGAKClRoaXMgdGhpcmQgYXBwcm9hY2ggZGlkIG5vdCBhZmZlY3QgdGhlIHByZWRpY3RlZCBwYXR0ZXJucyBpbiAqTGltbm9jYWxhbnVzKiBvciAqU2VuZWNlbGxhKiAobmVpdGhlciBzcGVjaWVzIGhhcyBiZWVuIG9ic2VydmVkIGluIGVub3VnaCBjb2xsZWN0aW9ucyB0byBlc3RpbWF0ZSB0aGUgZWZmZWN0cyBvZiBkaWZmZXJlbnQgZW52aXJvbm1lbnRhbCBmYWN0b3JzKS4gQ2hhbmdpbmcgdGhlIGFjY2xpbWF0aW9uIGFwcHJvYWNoIGRpZCBhZmZlY3QgcGF0dGVybnMgaW4gdGhlcm1hbCBsaW1pdHMgaW4gdGhlIG90aGVyIHNwZWNpZXMgdGhvdWdoLiBUaGUgZmlndXJlIGJlbG93IHNob3dzIGhvdyBwcmVkaWN0ZWQgd2FybWluZyB0b2xlcmFuY2UgdmFyaWVzIG92ZXIgdGhlIHllYXIgaW4gdGhlIHNldmVuIHNwZWNpZXMsIGJhc2VkIG9uIHRoZSB0aHJlZSBkaWZmZXJlbnQgcHJlZGljdGlvbiBtZXRob2RzLiBJbiBnZW5lcmFsLCBjb25zdGFudCB0aGVybWFsIGxpbWl0cyAodGhlICdubyBhY2NsaW1hdGlvbicgbWV0aG9kKSByZXN1bHRlZCBpbiBsYXJnZXIgd2FybWluZyB0b2xlcmFuY2UgZHVyaW5nIHRoZSB3aW50ZXIgYW5kIGxvd2VyIHdhcm1pbmcgdG9sZXJhbmNlIGR1cmluZyB0aGUgc3VtbWVyLCBhbHRob3VnaCB0aGlzIGVmZmVjdCB3YXMgc21hbGwgaW4gbW9zdCBzcGVjaWVzLiAgICAgCgpgYGB7ciBmaWcud2lkdGg9MTAsIGZpZy5oZWlnaHQ9MTB9CnN5bnRoZXNpcyA9IGJpbmRfcm93cygKICBzZWxlY3QoaGluZDFfZGF0YSwgZGF0ZSwgZG95LCBkYWlseV9tZWFuLCBkYWlseV9tYXgsIHNwZWNpZXMsICJwcmVkX2N0bWF4IiA9IG1lYW5fY3RtYXgsIGxpbV9kaWZmLCBtZXRob2QpLAogIHNlbGVjdChoaW5kMl9kYXRhLCBkYXRlLCBkb3ksIGRhaWx5X21lYW4sIGRhaWx5X21heCwgIHNwZWNpZXMsIHByZWRfY3RtYXgsIGxpbV9kaWZmLCBtZXRob2QpLAogIHNlbGVjdChoaW5kM19kYXRhLCBkYXRlLCBkb3ksIGRhaWx5X21lYW4sIGRhaWx5X21heCwgIHNwZWNpZXMsIHByZWRfY3RtYXgsIGxpbV9kaWZmLCBtZXRob2QpKSAlPiUgCiAgbXV0YXRlKG1ldGhvZCA9IGZjdF9yZWxldmVsKG1ldGhvZCwgIk5vX2FjY2xpbWF0aW9uIiwgIkNvbnN0YW50X2FjY2xpbWF0aW9uIiwgIlZhcmlhYmxlX2FjY2xpbWF0aW9uIikpCgpjbGltYXRvbG9neSA9IHN5bnRoZXNpcyAlPiUgCiAgZ3JvdXBfYnkoc3BlY2llcywgZG95LCBtZXRob2QpICU+JSAgCiAgc3VtbWFyaXNlKCJtZWFuX2RpZmYiID0gbWVhbihsaW1fZGlmZiksCiAgICAgICAgICAgICJtaW5fZGlmZiIgPSBtaW4obGltX2RpZmYpLAogICAgICAgICAgICAibWF4X2RpZmYiID0gbWF4KGxpbV9kaWZmKSkgJT4lIAogIG11dGF0ZShtZXRob2QgPSBmY3RfcmVsZXZlbChtZXRob2QsICJOb19hY2NsaW1hdGlvbiIsICJDb25zdGFudF9hY2NsaW1hdGlvbiIsICJWYXJpYWJsZV9hY2NsaW1hdGlvbiIpKQoKYWNjX2VmZmVjdHMgPSBzeW50aGVzaXMgJT4lIAogIHBpdm90X3dpZGVyKGlkX2NvbHMgPSBjKGRhdGUsIHNwZWNpZXMsIGRveSksIAogICAgICAgICAgICAgIG5hbWVzX2Zyb20gPSBtZXRob2QsIAogICAgICAgICAgICAgIHZhbHVlc19mcm9tID0gbGltX2RpZmYpICU+JSAgCiAgbXV0YXRlKCJjb25zdF9hY2NfZWZmZWN0IiA9IENvbnN0YW50X2FjY2xpbWF0aW9uIC0gTm9fYWNjbGltYXRpb24sCiAgICAgICAgICJ2YXJfYWNjX2VmZmVjdCIgPSBWYXJpYWJsZV9hY2NsaW1hdGlvbiAtIE5vX2FjY2xpbWF0aW9uKQoKZ2dwbG90KHN5bnRoZXNpcywgYWVzKHggPSBkb3ksIHkgPSBsaW1fZGlmZiwgY29sb3VyID0gbWV0aG9kKSkgKyAKICBmYWNldF93cmFwKHNwZWNpZXN+LikgKyAKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDUsIGNvbG91ciA9ICJncmV5IikgKyAKICBnZW9tX3BvaW50KGFscGhhID0gMC4xKSArIAogIGxhYnMoeCA9ICJEYXkgb2YgWWVhciIsIAogICAgICAgeSA9ICJQcmVkaWN0ZWQgV2FybWluZyBUb2xlcmFuY2UgKMKwQyBBYm92ZSBEYWlseSBNYXgpIikgKyAKICB0aGVtZV9tYXR0X2ZhY2V0cyhiYXNlX3NpemUgPSAxOCkgKyAKICB0aGVtZShzdHJpcC50ZXh0LngudG9wID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMCkpCmBgYAo=